procedure TfrmStaticCombItem.BitBtn1Click(Sender: TObject);
VAR
Save_Cursor:TCursor;
begin
Save_Cursor := Screen.Cursor;
Screen.Cursor := crHourGlass; { Show hourglass cursor }
try
adoquery1.Open;
finally
Screen.Cursor := Save_Cursor; { Always restore to normal }
end;
end;