[BoRoV]

Создаешь форму, на ней размещаешь две кнопки(OK, Cancel) и два эдите(Name, Password) и добавляешь в раздел паблик класса формы две переменые:

Код:

  public
    sName: string;
    sPassword: string;

Определяешь для всего этого такие события:

Код:

procedure TForm2.Button_CancelClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TForm2.Button_OKClick(Sender: TObject);
begin
  sName := Edit_Name.Text;
  sPassword := Edit_Password.Text;
  ModalResult := mrOk;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  Edit_Name.Text := '';
  Edit_Password.Text := '';
  ModalResult := mrCancel;
end;

Добавляешь этот юнит в свой откуда будет вызываться оно. И вызываешь так:

Код:

if Form2.ShowModal = mrOk then
    ShowMessage('Имя : ' + Form2.sName + #13#10 + 'Пароль : ' + Form2.sPassword);