Membaca File Text dari Delphi

Untuk membaca file Text dari program delphi
berikut adalah script nya

var:

var f1, f2 : TextFile;
ch : string;

Begin

assignfile(f1,'login.txt');
reset(f1);
readln(f1,ch);

MessageDlg(ch, mtWarning, [mbOK], 0);

end;

assignfile(f1,'login.txt'); --> membuka file text dengan nama login.txt
readln(f1,ch); -> membaca file tersebut dan dimasukan ke variabel ch
sehingga cariabel tersebut bisa ditampilkan

terima kasih