[Страдалецъ]

Ну а так не устроит?

Код:

unit Unit27;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TLoginInfo = class
   Name, Password: String;
  end;

  TForm27 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    Logins: Array of TLoginInfo;
  end;

  TLogin = class(TThread)
   Login: TLoginInfo;
   constructor Create(Login: TLoginInfo);
   procedure Execute; override;
  end;

var
  Form27: TForm27;

implementation

Uses DBLogDlg;

{$R *.dfm}

procedure TForm27.Button1Click(Sender: TObject);
begin
 SetLength(Logins, Length(Logins) + 1);
 Logins[High(Logins)] := TLoginInfo.Create;
 with TLogin.Create(Logins[High(Logins)]) do Resume;
end;

{ TLogin }

constructor TLogin.Create(Login: TLoginInfo);
begin
 inherited Create(False);
 Self.Login := Login;
end;

procedure TLogin.Execute;
begin
 inherited;
 LoginDialog('Login', Login.Name, Login.Password)
end;

procedure TForm27.Timer1Timer(Sender: TObject);
Var i: Integer;
begin
 Memo1.Clear;
 for i := 0 to Length(Logins) - 1
 do Memo1.Lines.Add(Format('Name: %s Password: %s', [Logins[i].Name, Logins[i].Password]));
end;

end.