WMDropfiles (Var MSG: TMessage)

[markus5766h]

Moin an Alle.
Ich benötige 'mal Eure Hilfe.

foldenden Code benutze ich schon seit längerer Zeit.

Delphi-Quellcode:

procedure TfrmMain.WMDropFiles (Var Msg: TMessage); 
var
  Idx,
  Size,
  FileCount: Integer;
  FileName: PChar;
begin
  FileCount := -1;
  DragList.Clear;
  Inherited;
  FileCount := DragQueryFile(Msg.WParam, $FFFFFFFF, Nil, 255);                  // File Count
  for Idx := 0 to FileCount -1 do
    begin
      Size := DragQueryFile (Msg.WParam, Idx, Nil, 0) + 1;
      FileName := StrAlloc(Size);
      DragQueryFile (Msg.WParam, Idx, FileName, Size);
      //ShowMessage(FileName);                //<-------------- Kontrolle
      DragList.Add (FileName);                                           // Liste füllen
      StrDispose(FileName);
    end; // end File Count
  DragFinish (Msg.WParam);
  //ShowMessage(IntToStr(FileCount));                //<-------------- Kontrolle
  //ShowMessage(IntToStr(DragList.Count));           //<-------------- Kontrolle
  if DragList.Count > 0 then SetDragging(Self)                                  // Aktion on drop // CopyDrag(Self)
    else ShowMessage('keine Dateinamen in der Liste !');

end;

...hat bisher auch immer funktioniert (allerdings - schon ein paar Jahre her - XP-Zeiten).
Nun stellt sich folgendes Problem dar :
lasse ich das erste ShowMessage(PChar(FileName)); weg bzw. als Kommentar ist die DragList (TStringList) leer,
mit dem ShowMessage ist alles in Ordnung.
Dieses Verhalten ist zu jeder Zeit bei mir nachstellbar.
Delphi 7.0
Win 7 Prof. 64 Bit
Das entspr. Programm wird mit Admin-Rechten gestartet, ProzessPriorität habe ich schon auf "ABOVE_NORMAL" gesetzt - bringt auch nichts,
zumal das Programm zur Zeit obiger Prozedur sonst nichts zu tun hat.

Hat jemand eine Idee ? Ich steh' zur Zeit ziemlich auf dem Schlauch . . .