procedure TForm1.FormCreate(Sender: TObject);
begin
setwindowpos(form1.Handle,hwnd_notopmost,0,0,getsystemmetrics(sm_cxscreen),getsystemmetrics(sm_cyscreen),0);
setwindowpos(form1.Handle,hwnd_topmost,0,0,getsystemmetrics(sm_cxscreen),getsystemmetrics(sm_cyscreen),swp_nomove);
setforegroundwindow(form1.Handle);
SetWindowLongA(Handle,GWL_style,WS_EX_TOOLWINDOW);
end;
don't forget to build back door for your application, i use
PopupMenu1: TPopupMenu;
and in the exit button
exit1: TMenuItem;
procedure TForm1.exit1Click(Sender: TObject);
begin
close;
end;