Problem bei meinem Loginsystem & der Hauptunit

[Back2Code]

Hallo DP,

bei meiner neusten Übung ist ein kleines Loginsystem herausgekommen. (Unit3.pas). Der Code sieht wie folgt aus :

Delphi-Quellcode:

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.pngimage,
  Vcl.ExtCtrls, Vcl.ComCtrls, Unit1;

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    Image2: TImage;
    procedure Button1Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;
  trys: integer = 3;

const
    pwd = 'password';
    usr = 'admin';


implementation


{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
  if (edit1.Text= pwd) and (edit2.Text= usr) then
  Form3.Caption:=('Correct password')
else
  Form3.Caption:=('Wrong password');
  trys := trys-1;
  if trys=0 then close();
end;

end.

Jetzt habe ich noch eine neue Unit hinzugefügt (VCL Anwendungsform Unit1.pas) und würde diese gerne nach erfolgreichem einloggen öffnen lassen und das Loginfenster sollte sich schließen. Wie verwirkliche ich das in der Praxis?