[ChinYan]

Код:

procedure TForm2.Button4Click(Sender: TObject);// получения имени файла
var
i:integer;
begin
 OpenDialog1.Title:='Выбор картинки';
 if OpenDialog1.Execute then
 begin
 fName:=OpenDialog1.FileName;
 try
 Image1.Picture.LoadFromFile(fName);
 except
 ShowMessage('Нужно выбрать файл картинки! .bmp, .jpg  и т.д.');
 end;
 SpeedButton1.Enabled:=true;
  Image1.Visible:=true;
  ImageVis:=True;
  
 end;
procedure TForm2.Button2Click(Sender: TObject);// запись в файл 
begin
Append(TMP);// ранее созданный файл ( но при этом делфи его выделяет)
Writeln(TMP,N);
Writeln(TMP,LabeledEdit1.Text);
if ImageVis=true then
begin
Writeln(TMP,'1');
Writeln(TMP,fName);
end
else writeln(TMP,'0');
CloseFile(TMP);
N:=N+1;
Label2.Caption:=IntToStr(N);
Image1.Visible:=False;
end;

Admin: Читаем правила и не забываем про теги!