Button bleibt gedrückt während Funktion durchläuft

[Yheeky]

Was ist aber, wenn ich auf das Verbinden reagieren muss? Sprich:

Delphi-Quellcode:

procedure TLoginThread.Execute;
begin
case LoginErgebnis of
    log_Erfolg:
     begin
     // Funktionen
     end;
    
   log_Misserfolg: ShowMessage('Login fehlgeschlagen!');
end;
end;

Login-Button:

Delphi-Quellcode:

procedure TfrmLogin.btnLoginClick(Sender: TObject);
var
  loginThread : TLoginThread;
begin
  loginThread := TLoginThread.Create(True);
  loginThread.Execute;
end;

Denn trotz Auslagerung kommt es nicht zum gewünschten Ergebnis.