Построчное чтение из файла используя TStringList

Question

Пожалуйста, подскажите дураку, как тут организовать построчное чтение? Прочитала уже безумное количество всякой информации и перепробовала кучу способов - не работает. Работаю в Delphi XE3.Код Delphi 
procedure TForm2.FormCreate(Sender: TObject); 
begin 
t:=TStringList.Create; 
if FileExists('2.txt') 
 then 
 t.LoadFromFile('2.txt'); 
 form2.Label1.Caption:=t.Text; 
end;

Администратор Доктор · Accepted Answer

procedure TForm2.FormCreate(Sender: TObject); 
var f:textFile; 
i:integer; 
s:string; 
begin 
t:=TStringList.Create; 
AssignFile(f,'2.txt'); 
reset(f); 
i:=0; 
while not eof(f) do begin 
readln(f,s); 
t.Strings[ i ] := s; 
inc(i); 
 end; 
close(f); 
end;