سورس کد کپی کردن فایل (دلفی)

کد:
procedure CopyFile(const Source, Dest: string);

var

  SourceStream, DestStream: Classes.TFileStream; // source and dest file streams

begin

  DestStream := nil;

  // Open source and dest file streams

  SourceStream := Classes.TFileStream.Create(

    Source, SysUtils.fmOpenRead or SysUtils.fmShareDenyWrite

  );

  try

    DestStream := Classes.TFileStream.Create(

      Dest, Classes.fmCreate or SysUtils.fmShareExclusive

    );

    // Copy file from source to dest

    DestStream.CopyFrom(SourceStream, SourceStream.Size);

    // Set dest file's modification date to same as source file

    SysUtils.FileSetDate(

      DestStream.Handle, SysUtils.FileGetDate(SourceStream.Handle)

    );

  finally

    // Close files

    DestStream.Free;

    SourceStream.Free;

  end;

end;