Anonymous Methods für Sanduhr als Design Pattern

[bernhard_LA]

ich würde gerne alle SQL Operationen in meinem Programm via Anonymous Methods als Design Pattern mit einem Mauszeiger ausstatten.
Ich habe folgenden Code hierzu :

Delphi-Quellcode:

type
 TQueryProc = reference to procedure (aQuery: TADOQuery);


procedure ShowHourGlassDuringSQL(Proc: TQueryProc);
 var
 OldCursor: TCursor;
 begin
 OldCursor := Screen.Cursor;
 Screen.Cursor := crHourGlass;
 try
 Proc;
 finally
 Screen.Cursor := OldCursor
 end;
 end;


TMainform.ExecuteSQL1(aQuery : TADOQUERY);
begin
   ....
end;

TMainform.ExecuteSQL2(aQuery : TADOQUERY);
begin
   ....
end;

TMainform.ExecuteSQL3(aQuery : TADOQUERY);
begin
   .....
end;

der eigenliche Code wäre dann :

Delphi-Quellcode:

    ShowHourGlassDuringSQL(MyMainForm.ExecuteSQL3(meineQueryA));

    ShowHourGlassDuringSQL(MyMainForm.ExecuteSQL3(meineQueryB));

Ich bekomme noch nicht mal die korrekte Syntax hin, was mache ich falsch?