نسخ إسم ملف

السلام عليكم

نسخ الملفات سهل ومرفق بروسيجر لأتمام ذالك .. علمآ انة يوجد اكثر من طريقة ... اما الأمتداد فقد حذفتة لك باستخدام :

الــ StringReplace

SN := StringReplace(SN, '.txt', '', [rfReplaceAll])

procedure ListFileDir(Path: string; FileList: TStrings);
var
  SR: TSearchRec;
  SN: String;
begin
  if FindFirst(Path + '*txt', faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr <> faDirectory) then
      begin
      SN := SR.Name;
      SN := StringReplace(SN, '.txt', '', [rfReplaceAll]);
        FileList.Add(SN);
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListFileDir('C:\WINDOWS\', Memo1.Lines);
end;

وبالتوفيق .