Drag Drop в определенный Edit

[mr_xxx]

Добрый день
заранее всем спасибо
очен чрочна нужна помощ
пожалуйста не советуйте гугл и поисковики искал но не нашел кто хочет помоч пожалуйста дайте рабочий код или исходник

есть 5 компонента едит
хочу зделат так что когда делаю drag drop на один из edit -ов туда вписался путь к файлу или имя файла

если допустим делаю drag drop на edit1 был на edit1 если на edit2 был на edit2

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,shellapi, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    procedure draganddrop (var msg:TWMDropFiles); message WM_DROPFILES;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   dragfile: array [0..max_path] of char;
implementation



{$R *.dfm}




procedure Tform1.draganddrop(var msg: TWMDRopfiles);
begin



if dragqueryfile(msg.drop,0,dragfile,max_path)> 0 then
form1.edit1.text:=dragfile;

end;
procedure TForm1.FormCreate(Sender: TObject);
begin
dragacceptfiles(handle,true);
end;

end.

этот только для одного edit-а
а мне нужна так что на какой эдит делаю drag drop именно там было путь к файлу или имя файла
а edit -ов у меня 5

Заранее блогодарен

[Аватар]

А так, только правда для эдита с фокусом ввода

if (form1.ActiveControl is TEdit) and
   (dragqueryfile(msg.drop,0,dragfile,max_path)>0) then TEdit(form1.ActiveControl).text:=dragfile;

Иначе по координатам мыши определять куда

[mr_xxx]

Огромное спасибо