Как перетащить файлы мышкой в программу?

[&&blad&&]

Немогу перетащить файлы пдскажите в чём ошибка?

ShellAPI
procedure WMDropFiles(var Message: TMessage);  message WM_DROPFILES;

procedure TForm1.WMDropFiles(var Message: TMessage);
var
  FileName: array[Byte] of Char;
begin
  SetForegroundWindow(Handle);
  DragQueryFile(Message.wParam, 0, @FileName, SizeOf(FileName));
   showmessage(extractfilepath(FileName));
end;
end.

[JTG]

При создании формы DragAcceptFiles(handle, true);
И DragFinish(Message.wParam) после перестаскивания

[HellMercenariess]

Неплохо еще в try-finally раскидать:

try
    if DragQueryFile(Msg.Drop, 0, CFileName, MAX_PATH) > 0 then
    begin
      Msg.Result := 0;
    end;
     finally 
    DragFinish(Msg.Drop);
  end;