Problem mit Drag&Drop

[fwsp]

hallo,

ich möchte gern ein ein bisschen hin und her droppen, aber es will nicht so wie ich will
wenn ich was in die ComboBox droppe, kann ich keine reaktion feststellen (Debugger springt nicht in WMDROPFILES). getestet hab unter vista & xp. der code stammt aus der code lib ( http://www.delphipraxis.net/internal...t.php?t=118084 )
wo mach ich nen fehler, bzw hat wer nen tipp für mich?

danke
fwsp

Delphi-Quellcode:

procedure TFBand.FormCreate(Sender: TObject);
begin
  ...
  DragAcceptFiles(ComBo.Handle, True);
end;

procedure TFBand.WMDROPFILES(var Msg: TMessage);
var
  i, Counts, Size: Integer;
  PCharFileName: PChar;
begin
  inherited;

  PCharFileName := nil;
  Counts := DragQueryFile(Msg.WParam, $FFFFFFFF, PCharFileName, 255);

  for i := 0 to Counts - 1 do
  begin
    Size := DragQueryFile(Msg.WParam, i, nil, 0) + 1;
    PCharFileName := StrAlloc(Size);
    DragQueryFile(Msg.WParam, i, PCharFileName, Size);
    DragDropStr := string(PCharFileName);
    ComBo.Text := DragDropStr;
    ShowMessage('bäm!');
    StrDispose(PCharFileName);
  end;

  DragFinish(Msg.WParam);
end;