윈도우 탐색기에서 파일을 폼에다 드래그 & 드롭하여
폼의 색깔을 바꿀려고 합니다.

소스는 다음과 같습니다.
uses에는 API함수를 사용하기 위해 ShellApi를 삽입했습니다.
위 프로그램을 실행하여 탐색기에서 드래그는 되는데
드롭을 하면 색깔이 변하지 않습니다.

뭐가 빠진건 같은데 영모르겠네요... API 함수는 쥐약....
부탁드립니다.

uses
  ShellApi;

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

procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
     Accept := True;
end;

procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
     Form1.Color := clGreen;
end;