====== Пример копирования файлов (TFileStream) в потоке (TThread) ======

<code delphi>
unit copythread; 

interface 

uses 
  Classes, SysUtils; 

Const 
  KB1 = 1024; 
  MB1 = 1024*KB1; 
  GB1 = 1024*MB1; 

type 
  TCopyFile = class(TThread) 
  public 
    Percent    : Integer; 
    Done,ToDo  : Integer; 
    Start      : TDateTime; 
    constructor Create(Src, Dest: String); 
  private 
    { Private declarations } 
    IName,OName : String; 
  protected 
    procedure Execute; override; 
  end; 

implementation 

{ TCopyFile } 

constructor TCopyFile.Create(Src, Dest : String); 
begin 
  IName := Src; 
  OName := Dest; 
  Percent := 0; 
  Start := Now; 
  FreeOnTerminate := True; 
  inherited Create(True); 
end; 

procedure TCopyFile.Execute; 
var 
  fi,fo       : TFileStream; 
  dod,did     : Integer; 
  cnt,max     : Integer; 

begin 

  Start := Now; 
  try 
    { Открываем существующий путь } 
    fo := TFileStream.Create(OName, fmOpenReadWrite); 
    fo.Position:=fo.size; 
  except 
    { иначе создаём путь } 
    fo := TFileStream.Create(OName, fmCreate); 
  end; 
  try 
    { открываем копируемый файл } 
    fi := TFileStream.Create(IName, fmOpenRead); 
    try 
      { синхронизируем } 
      cnt:= fo.Position; 
      fi.Position := cnt; 
      max := fi.Size; 
      ToDo := Max-cnt; 
      Done := 0; 

      { начинаем копирование } 
      Repeat 
        dod := MB1; // Block size 
        if cnt+dod>max then dod := max-cnt; 
        if dod>0 then did := fo.CopyFrom(fi, dod); 
        cnt:=cnt+did; 
        Percent := Round(Cnt/Max*100); 

        Done := Done+did; 
        ToDo := Max; 
      until (dod=0) or (Terminated); 

    finally 
      fi.free; 
    end; 
  finally 
    fo.free; 
  end; 
end; 

end.
</code>
 

Как использовать:
<code delphi>
begin 
... 
  TCopyFile.Create('d:\sourcfile.dat','d:\destination.dat'); 
... 
end;
</code>