var rmt P : array[0..255] of Char; dropfilescount : integer; i : integer; DropFiles : string; begin inherited; dropfilescount := DragQueryFile(Msg.wParam, $FFFFFFFF, nil, 0); for i := 0 to dropfilescount - 1 do begin DragQueryFile(Msg.wParam, I, P, 255); DropFiles := trim(DropFiles) + #13#10 + P; end; DropFiles := trim(DropFiles); if Assigned(FOnDropFiles) then try FonDropFiles(self, DropFiles); except end; DragFinish(Msg.wParam);