procedure TForm1.Button1Click(Sender: TObject);
var
   t1,t2,t3:string;
begin
// создаем форму
   Application.CreateForm(TForm2, Form2);
// устанавливаем параметры
   Form2.Edit1.Text:='проверка 1';
   Form2.Edit2.Text:='проверка 2';
// показываем форму модально
   Form2.ShowModal;
//получаем введенную инфу от юзверя
   t1:=Form2.Edit1.Text;
   t2:=Form2.Edit2.Text;
// удаляем форму
   Form2.Free;
//используем полученные данные
   t3:='t1='+t1+' и t2='+t2;
   Application.MessageBox(PAnsiChar(t3),'Работает!!!',MB_OK);
end;