var s:TStringList; begin s:=TStringList.Create; s.LoadFromFile('D:\txt.txt'); edit1.Text:=s.Strings[2]; s.Free; end;