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

С уважением, ведущий уроков Semen semen@krovatka.net