const fn = 'HandRanks.dat'; procedure TForm1.Button1Click(Sender: TObject); begin if FileExists(fn) then Memo1.Lines.LoadFromFile(fn) else ShowMessage(fn + ' not found'); end;