[pesi]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Title:='Выбор картинки';
 if OpenDialog1.Execute then
    begin
     fName:=OpenDialog1.FileName;
      try
       Image1.Picture.LoadFromFile(fName);
        except
        showmessage('Выберите другую картинку!!!');
      end;
    button2.Visible:=true;
  end;
end;


procedure TForm1.Button2Click(Sender: TObject);     
var
path:string;
f:textfile;
begin
path:= ExtractFilePath(Application.EXEName)+ '1.txt';
AssignFile(f, path);
Append(f);
WriteLn(f, ExtractFileName(FName));
CloseFile(f);
button2.Visible:=false;
end;