Fenster aktiv halten?

[gandime]

joa das läuft schon ganz gut:

Delphi-Quellcode:

procedure TForm1.InActive(var Msg:TWMActivate);
begin
  if not (Msg.Active=WA_ACTIVE) then
  begin
    SetForegroundWindow(application.Handle);
  end;
  inherited;
end;

blos SetForegroundWindow() funktioniert nicht so wie ich es mir vorgestellt habe^^
gibts da ne andere Funktion o.ä.?