procedure TForm1.Button1Click(Sender: TObject); var begin naim:=Edit1.text; otch:=Edit2.text; fam:=Edit3.text; end;