Код:
var
SL : TStringList;
begin
SL := TStringList.Create
Try
SL.LoadFromFile('C:\12.txt');
Edit1.Text := SL[1];
Memo1.Lines.Text := SL[2];
Image1.Picture.LoadFromFile(SL[3]);
Finally
SL.Free;
End;
end;
Здесь нет проверки содержимого файла (то, что там действительно есть 3 строки) и наличия файла с картинкой на диске, на который указывает 3я строка.