Delphi-PRAXiS - Delphi Befehl wird nicht der Reihe nach abgearbeitet,warum?[gelößt]

Ich möchte gern per Drag&Drop in ein DBGrid von einer Listbox Daten einfügen. Mein Problem ist, das ich nicht weiß, wie ich den richtigen Datensatz wechseln kann, bevor der Rest des Codes ausgeführt wird.
Meine Idee war (nach etlichen anderen Fehlversuchen), das ich den sowieso schon vorhandenen event oncellclick ausnutze und dadurch in den richtigen Datensatz wechsle. Leider wird das ereignis wechsel in diesen fall erst ausgelößt, nachdem er den rest des codes ausgeführt hat. Wer kann helfen, wer hat ne :idea: ?

Delphi-Quellcode:

			procedure THauptform.DBGrid2DragDrop(Sender, Source: TObject; X, 

  Y: Integer); 

var Cell: TGridCoord; 

    a : integer; 

    hiddendata : THidden; 

begin 

     try 

          mouse_event(MOUSEEVENTF_leftDOWN,x,y,0,0); 

          mouse_event(MOUSEEVENTF_leftUP,x,y,0,0); 

     finally 

           if (source = listbox1) then 

           begin 

           a:= (source as TListBox).itemindex; 

           hiddendata := ((Source as Tlistbox).Items.Objects[a] as THidden); 

           table2.Edit; 

           table2verteiler.value := hiddendata.id; 

           table2.Post; 

           Table2.refresh; 

           end; 

     end; 

end;