Форма постоянно сверху приложения

procedure TFloatingToolbar.CreateParams( var Params: TCreateParams );
begin
  inherited CreateParams( Params );
  with Params do
  begin
    Style := Style or ws_Overlapped;
    WndParent := MainForm.Handle;
  end;
end;