1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

library FormDialog;

uses
  SysUtils,
  Classes,
  Windows,
  Forms,
  FormUnit in 'FormUnit.pas' {UserForm};

{$R *.res}

procedure UserForm(appHandle: THandle); stdcall;
begin
  if appHandle = 0 then apphandle := GetActiveWindow;
  Application.Handle := appHandle;
  try
    with TUserLoginMain.Create(Application) Do // hier muss natürlich der Klassen-Bezeichner der Form stehen
                                               // TUserLoginMain ist nur ein Beispiel
      try
        ShowModal
      finally
        Free;
      end
  except
    On E: Exception Do Application.HandleException(E);
  end;
  Application.Handle := 0;
end;

exports
  UserForm;
  
begin

end.					

1:

procedure UserForm(appHandle:THandle); stdcall;					

1:
2:
3:
4:

procedure TForm1.Buuton1Click(Sender:TObject);
begin
  UserForm(Application.Handle);
end;