procedure Tform1.CreateParams(var Params: TCreateParams); 
begin 
     inherited CreateParams(Params); 
     with Params do 
     begin 
       ExStyle := ExStyle or WS_EX_TOPMOST or WS_EX_TOOLWINDOW; 
       WndParent := 0; 
     end 
end;