[Elza]

Вопрос решен!

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if getasynckeystate($11)<>0 then
begin
Form1.Show;
Form1.FormStyle:=fsStayOnTop;
end
else
Form1.Hide;
end;