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

[Taladan]

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 ?

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;

[Taladan]

hab jetzt eine Komponente entwickelt, die auch den Property Row hat und damit geht das ganze dann sehr einfach