Перетаскивание файла на форму

[nibufep]

  
protected
    procedure WMDropFiles(var Msg: TMessage); message wm_DropFiles;
  end;
...
procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
CFileName: array[0..MAX_PATH] of Char;
begin
try
If DragQueryFile(Msg.Drop, 0, CFileName, MAX_PATH)> 0 then
begin
Memo1.Lines.LoadFromFile(CFileName); 
Msg.Result := 0;
end;
finally
DragFinish(Msg.Drop); 
end;
end;

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

Пытаюсь сделать загрузку файла в memo перетаскиванием его из проводника, почему не работает?

[Stilet]

А ты свое отлаживал?

Вот, сравни:
http://www.programmersforum.ru/showthread.php?t=231099
http://www.programmersforum.ru/showthread.php?t=70528

[nibufep]

Сообщение от Stilet

А ты свое отлаживал?

Вот, сравни:
http://www.programmersforum.ru/showthread.php?t=231099
http://www.programmersforum.ru/showthread.php?t=70528

Пробовал и так:

procedure form.WMDropFiles(var Msg: TMessage);
var
   Filename: array[0 .. 256] of Char;
   Count   : integer;
   Fname:string;
begin
 DragQueryFile( THandle(Msg.WParam), 0, { номер файла } Filename,SizeOf(Filename) ) ;
  DragFinish(THandle(Msg.WParam));
   end;

и так:

procedure TForm1.WMDropFiles(var Msg: TMessage);
begin
     // Получаем имя файла 
     DragQueryFile( THandle(Msg.WParam),0,fname,SizeOf(fname) ) ;
     DragFinish(THandle(Msg.WParam));
end;

Не загружает...

[Stilet]

И ка-а-а-а-нешнаже никакой отладки ты не делал )
Чему тогда удивляться?