Свое диалоговое окно с репликацией

procedure TSomeForm.SomeEvent(...);
var f:TMyForm;
begin
  f:=TMyForm.Create;
  try
    if f.ShowModal=mrOk then
    begin
      DoSomethingCool();
    end;
  finally
    FreeAndNil(f);
  end;
end;

Function ShowDialog(Component : TComponent) : Boolean
var f1 : tform2;
begin
   f1 := TForm2.Crteate(Component);
   //Настройка компонентов
   if f1.ShowModal = mrOk then
   BEGIN
      //Берем значения в переменных модуля
      //Уничтожаем форму
   END;
end;
 
Но если У кнопки ОК например стоит в ModalResult mrOk и есть событие которые все данные из компонентов заносит в переменные. Закроет ли такая кнопка форму?

unit UMyClasses;
type
TCredentials=record
  user:string;
  pass:string;
end;
...

unit UMyForm;
interface
  uses UMyClasses;
type
TMyForm=class(TForm)
  eUser:TEdit;
  ePass:TEdit;
public
  function SaveToModel:TCredentials;
  procedure Init(C:TCredentials);
end;
 
function TMyForm.SaveToModel:TCredentials;
begin
  result.user := eUser.Text;
  result.pass := ePass.Text;
end;
 
procedure TMyForm.Init(C:TCredentials);
begin
  eUser.Text := c.User;
  ePass.Text := c.Pass;
end;

TMainForm=class(TForm)
...
  Cred:TCredentials;
..
end;
 
procedure TMainForm.ShowLogin;
var
  f:TMyLogin;
begin
  f:=TMylogin.Create(NIL);
  try
    f.init(cred);
    if f.showmodal()=mrOk then
    begin
       cred:=f.SaveToModel();
    end;
  finally
    f.free;
  end;
end;

Function ShowDialogParamScripts(IDXScripts : Integer; IDXTypeScripts: Byte; CompontsShowFrm: TComponent):AnsiString;
var frmNewDlgWindow : TfrmDAddNewWindowsScripts;
  astr:AnsiString;
Begin
  if IDXTypeScripts >= 1 then
    Result := TextsScripts1[IDXScripts]
  else begin
    case IDXScripts of
      0:
      begin
        frmNewDlgWindow := TfrmDAddNewWindowsScripts.Create(CompontsShowFrm);
        if frmNewDlgWindow.ShowModal = mrOk then
          astr := frmNewDlgWindow.GetScriptsNewWindow
        else
          astr := '';
        if frmDAddNewWindowsScripts <> nil then
          FreeAndNil(frmNewDlgWindow);
        Result := astr;
      end;
    end;
  end;
End;
 
Function ShowAddScripts(CompontsShowFrm: TComponent):AnsiString;
var IndexScript : integer;
  IndexTypeScript : Byte;
  formAddScripts : TfrmDAddScripts;
begin
  IndexScript := 0;
  IndexTypeScript := 0;
  formAddScripts := TfrmDAddScripts.Create(CompontsShowFrm);
  formAddScripts.Caption := 'Добавление скрипта | Выберите скрипт:';
  formAddScripts.idScripts := IndexScript;
  formAddScripts.idTypeScripts := IndexTypeScript;
  formAddScripts.GetTextScripts;
  if formAddScripts.ShowModal = mrOk then begin
    formAddScripts.GetIdAndTypeScripts(IndexScript, IndexTypeScript);
    if formAddScripts <> nil then
      FreeAndNil(formAddScripts);
    Result := ShowDialogParamScripts(IndexScript, IndexTypeScript, CompontsShowFrm);
  end;
end;
procedure TfrmDAddScripts.GetIdAndTypeScripts(var IdxScripts: Integer;
  var IdxTypeScripts: Byte);
begin
  IdxScripts := idScripts;
  IdxTypeScripts := idTypeScripts;
end;
 
procedure TfrmDAddScripts.GetTextScripts;
var i : integer;
begin
  case idTypeScripts of
    0:
    begin
      BitBtn1.Enabled := False;
      BitBtn2.Enabled := True;
      LBS.Items.Clear;
      for i := 0 to Length(LbsTextsScripts2)-1 do
        LBS.Items.Add(LbsTextsScripts2[i]);
    end;
    1:
    begin
      BitBtn1.Enabled := True;
      BitBtn2.Enabled := False;
      LBS.Items.Clear;
      for i := 0 to Length(LbsTextsScripts1)-1 do
        LBS.Items.Add(LbsTextsScripts1[i]);
    end;
  end;
end;
function TfrmDAddNewWindowsScripts.GetScriptsNewWindow: AnsiString;
begin
  Result := ScrMV+chrScrStyle+chrScrTextPosition+chr0+Memo1.Text+chr1;
end;