[icWasya]

например так

Код:

Procedure TMainForm.Button1Click(Sender:TObject);
var
  Form1:TForm1;// именно локальная переменная
begin
  Form1:=TForm1.Create(nil);
  try
    /*здесь можно поставить код, 
       который может дополнительно заполнять форму*/
    Form1.Edit1.Text:='Привет';

    Form1.ShowModal();// собственно показываем
    /*здесь можно поставить код, 
       который считывает с формы что-нибудь*/
    if Form1.ModalResult = mrOk then
      Caption := Form1.Edit1.Text;

  finally
    Form1.Free; // если больше не нужна - удаляем
  end;
end;