drag and drop текста!

[digios]

проблема такая, использую такой код по перетаскивания текста на форму

PHP код:

unit Unit1;

 interface

 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ComCtrls, ActiveX, ShlObj, ComObj, StdCtrls, OleCtnrs, Unit3,
  OleCtrls, SHDocVw;

 type
   TForm1 = class(TForm, IDropTarget)
    Memo1: TMemo;
    WebBrowser1: TWebBrowser;
    Button1: TButton;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
     // IDropTarget 
    function DragEnter(const dataObj: IDataObject;
                        grfKeyState: Longint;
                        pt: TPoint;
                        var dwEffect: Longint): HResult; stdcall;
    function DragOver(grfKeyState: Longint;
                       pt: TPoint;
                       var dwEffect: Longint): HResult; stdcall;
    function DragLeave: HResult; stdcall;
    function Drop(const dataObj: IDataObject;
                   grfKeyState: Longint; pt: TPoint;
                   var dwEffect: Longint): HResult; stdcall;
    // IUnknown
   // Ignore referance counting
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;

   public
     { Public declarations }
   end;


 var
   Form1: TForm1;

 implementation

 {$R *.dfm}

 uses
   ShellAPI;

procedure TForm1.FormCreate(Sender: TObject);
 begin
   OleInitialize(nil);
   {Allow window to accept drop events}
   OleCheck(RegisterDragDrop(Handle, Self));
   { Execute Wordpad for testing }
  // ShellExecute(Handle, 'open', 'wordpad', 'd:\games\Test.doc', nil, SW_SHOW);
 end;

procedure TForm1.FormDestroy(Sender: TObject);
 begin
   {Finished accepting drops}
   RevokeDragDrop(Handle);
   OleUninitialize;
 end;

 function TForm1.DragEnter(const dataObj: IDataObject;
   grfKeyState: Longint;
   pt: TPoint;
   var dwEffect: Longint): HResult;
 begin
   dwEffect := DROPEFFECT_COPY;
   Result  := S_OK;
 end;

 function TForm1.DragOver(grfKeyState: Longint;
   pt: TPoint;
   var dwEffect: Longint): HResult;
 begin
   dwEffect := DROPEFFECT_COPY;
   Result := S_OK;
 end;

 function TForm1.DragLeave: HResult;
 begin
   Result := S_OK;
 end;

 function TForm1._AddRef: Integer;
 begin
    Result := 1;
 end;

 function TForm1._Release: Integer;
 begin
    Result := 1;
 end;

 function TForm1.Drop(const dataObj: IDataObject;
   grfKeyState: Longint;
   pt: TPoint;
   var dwEffect: Longint): HResult;
 var
   aFmtEtc: TFORMATETC;
   aStgMed: TSTGMEDIUM;
   pData: PChar;
 begin
   {Make certain the data rendering is available}
   if (dataObj = nil) then
     raise Exception.Create('IDataObject-Pointer is not valid!');
   with aFmtEtc do
   begin
     cfFormat := CF_TEXT;
     ptd := nil;
     dwAspect := DVASPECT_CONTENT;
     lindex := -1;
     tymed := TYMED_HGLOBAL;
   end;
   {Get the data}
   OleCheck(dataObj.GetData(aFmtEtc, aStgMed));
   try
     {Lock the global memory handle to get a pointer to the data}
     pData := GlobalLock(aStgMed.hGlobal);
     { Replace Text }
     Memo1.Text := UTF8ToAnsi(pData);
   finally
     {Finished with the pointer}
     GlobalUnlock(aStgMed.hGlobal);
     {Free the memory}
     ReleaseStgMedium(aStgMed);
   end;
   Result := S_OK;
 end; 


в новом приложении работает на ура, а вот при добавлении в другой проект выдает: Incompatible types: 'IDropTarget' and 'TForm1'
в этой строчке: OleCheck(RegisterDragDrop(Handle, Self));

что может быть не так? любые идеи