[Kpyc]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var s:TStringList;
begin
if OpenDialog1.Execute 
  then Begin
           s := TStringList.Create;
           s.loadfromfile( opendialog1.FileName );
           edit1.Text := s.Strings[ 2 ];
           s.Free;
         end;
end;