Delete delphi dcus runtime files 👌{put it right on close form event}

delete_dcu.pas

procedure TfrmYourForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
  SearchRec : TSearchRec;
  dcuDirectory: string;
begin
   try
      dcuDirectory :=  ExtractFilePath(Application.ExeName);
      FindFirst(dcuDirectory + '*.dcu', faAnyFile, SearchRec);
      repeat
         DeleteFile(dcuDirectory + SearchRec.name);
      until FindNext(SearchRec) <> 0;
   finally
      FindClose(SearchRec);
   end;
end;