procedure TForm1.Button1Click(Sender: TObject);
var
myname:String;
myfam:String;
begin
 myname:=Edit1.text;
 myfam:=Edit2.Text;
 Memo1.Lines.Add(myname);
 with Memo1.Lines do
  begin
    Add(myname);
    Add(myfam);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
// программа коннектится на ftp host port login pass 
создает каталог Имя компа из которого послали+дата
сохраняет даные Memo в txt а openpicturedialog в той же папке (желательно добавить перекодировку например открыт был фаил bmp 1024x768 а сох в jpg 640x480)
присутствует докачка
end;

end.