Drag & Drop im Edit erkennen und farbig markieren

[Bummi]

würde so etwas langen ?

Delphi-Quellcode:

        if Msg.hwnd = Edit1.Handle then
          begin
          if Edit1.Tag=0 then
               Edit1.Text := PChar(@pDroppedFilename)
          else Edit1.Color := clRed;
          end

.....

procedure TForm1.Edit1MouseLeave(Sender: TObject);
begin
  Tedit(Sender).Color := clWhite;
end;