Problem beim Focus setzen nach erstellen eines forms

[5etH]

Hallo Zusammen,

Ich arbeite momentan an einem Programm das ich in einem SystTayIcon verschwinden lasse und es dann gesperrt ist und der Benutzer dann ein Passwort und einen Benutzernamen eingaben muss um das Programm wieder frei zu geben.

Mein Problem:
wenn ich die Eingabemaske für Passwort und Benutzernamen anzeige hat sie keinen Focus

Verstecken und wiederherstellen der forms:

Delphi-Quellcode:

procedure TForm1.TrayIcon1Click(Sender: TObject);
var
  I: Integer; //Counter
begin
  if seh then //Seh ist eine Variable zur überprüfung ob sie versteckt sind oder nicht
    begin
      application.Minimize;
        for I := 0 to screen.formcount - 1 do
          begin
            screen.forms[i].hide;
          end;
      seh := false;
    end
    else
    begin
      if sperr then //überprüfen ob das Programm gesperrt werden soll
        begin
          if not s8 then //Überprüfen ob loginmaske erstellt wurde 
            begin
              s8 := true;
              Application.CreateForm(TForm8, Form8);
              form8.show; //anzeigen der Loginmaske
            end;
        end
        else
        begin
          for I := screen.formcount -1 downto 0 do
            begin
              screen.forms[i].show
            end;
          application.Restore;
          application.BringToFront;
          seh := true;
        end;
    end;
end;

om den Focus zu setzen habe ich einiges versucht

Delphi-Quellcode:

self.activate; // auf der loginmaske OnShow;
self.setfocus;

selbiges habe ich auch mit den Editfeldern versucht aber nichts hilft!


folgendes ist bei der Loginmaske "OnShow"

Delphi-Quellcode:

procedure TForm8.FormShow(Sender: TObject);
begin
  if form1.Edit1.Text <> '' then
    begin
      self.edit1.Text := form1.edit1.text;
      //Wenn möglich focus auf edit2.text legen
    end;
      //wenn möglich Focus auf edit1.text legen   
end;

ich hoffe ihr könnt mir weiter helfen ich weis nichtmer weiter und mir fällt auch nichts mehr ein

schonmal vielen vielen dank

gruß Manu