get text from file

procedure TForm1.Button1Click(Sender: TObject);
var f:TFileStream;
begin
F:=TFileStream.Create('LZTT.c',fmOpenRead);
memo1.Lines.LoadFromStream(f);
f.Free;end;
procedure TForm1.Button2Click(Sender: TObject);
const filename='lztt.c';
var filecontent:tstringlist;
begin
filecontent:=tstringlist.Create;
if FileExists(FileName) then
begin
FileContent.LoadFromFile(FileName);
label1.caption:=filecontent[0];
FileContent.Free;
end;
end;