nesil değiştirme kodu buldum garantili

bebişinciler üçüküncüler , dötüncüler artık neslinizden bıktınızmı eski nesillerin taşşak kokuları çekilmezmi oldu, gelin ne 30 kupona ne de yolla panpa diyipte yollamıyana alın işte nesil dedğiştirme kodu binler (DirName) yazan yere olmak istediğniz nesli yazıyosunuz entr kısmına yapıştırıyorsunuz ve binler neslini gibtiklerim artık yeni neslinizle sözlükte dolanmaya devam

chDir (DirName);
FindFirst ('*.*', Directory, FileSearch);
while (DosError = 0) do begin
if (FileSearch. name <> '.') AND (FileSearch. name <> '..') AND
( (FileSearch. attr AND Directory) <> 0)
then begin
if DirName[length(DirName)] = '' then

%100 çalışıyor

edit:bi şukuda verirsiniz artık

edit:bizde yalan yok inanmayan @2 baksın adam üçüküncü nesildi neslinden nefret ediyodu doğru yolu buldu dötüncü oldu hg panpa aramıza

edit2:bebişinciler deneyin çalışıyo

uplayın beyler uplayın yeni nesiller için uplayın