procedure TForm1.CreateWnd;
begin
 inherited;
 DragAcceptFiles(WindowHandle, True);
end;

procedure TForm1.DestroyWnd;
begin
 DragAcceptFiles(WindowHandle, false);
 inherited;
end;

procedure TForm1.WMDROPFILES(var msg: TWMDropFiles);
var
 i, fileCount: integer;
 fileName: array[0..MAX_PATH] of char;
begin
 fileCount:=DragQueryFile(msg.Drop, $FFFFFFFF, fileName, MAX_PATH);
 for i := 0 to fileCount - 1 do
 begin
   DragQueryFile(msg.Drop, i, fileName, MAX_PATH);
   Form1.DosyaListesiMEMO.Lines.Add(fileName); // burası sorunsuz çalışıyor.

   Form1.DosyaListesiMEMO.OnChange(sender); // onCreate sırasında çalışan aynı satır burada sender undefined hatası veriyor.
 end;
 DragFinish(msg.Drop);
end;

procedure TForm1.FormCreate(Sender: TObject);
var k:integer;
begin
 PARAMETRE_Dinamik_Objelerini_YAP; // burası sorunsuz çalışıyor.
 DosyaSAYISI := 0;
 ParametreOKU_mod; // burada da basit okumalar var. Sorun yok.

 Form1.DosyaListesiMEMO.OnChange(sender); // onChange prosedürü burada sorunsuz çalışıyor.
end;