Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  Simply place this one line of code in the OnCreate event of 
  the form that is showing the annoying SQL Wait cursor... 
}

 procedure TForm1.FormCreate(Sender: TObject);
 begin
   Screen.Cursors[crSQLWait] := Screen.Cursors[crHourGlass];
   // or whatever cursor you would like to replace the SQL hourglass with 
end;