Ищу пример

Проще использовать копирование методом файловых потоков.
Протестировал все на D6. На форме две кнопки и ProgressBar.
Button1 - копирование; Button2 - отмена.

var CancelOperation:Boolean; // Глобальное объявление

..........................

procedure TForm1.Button1Click(Sender: TObject);

const
BlockSize = 65536;
// изменение этого значения на любое другое,
// отличное от указанного, приводит к
// увеличению времени копирования!!!

var
ElapsedSize, CopySize: Integer;
SourceStream, TargetStream: TFileStream;
Source, Target: String;

begin
CancelOperation:=False;
Source:='c:\copy\testfile.dat';
Target:='c:\testfile.dat';

SourceStream:=TFileStream.Create(Source,fmOpenRead);
TargetStream:=TFileStream.Create(Target,fmCreate);

ElapsedSize:=SourceStream.Size - SourceStream.Position;
ProgressBar1.Max:=SourceStream.Size;

while ElapsedSize > 0 do
begin
if ElapsedSize < BlockSize
then CopySize:=ElapsedSize
else
CopySize:=BlockSize;

TargetStream.CopyFrom(SourceStream,CopySize);
ElapsedSize:=SourceStream.Size - SourceStream.Position;
ProgressBar1.Position:=SourceStream.Position;
// модификация индикатора процесса

Application.ProcessMESSAGES;
// чтобы окно и все, что на нем находится реагировало
// на изменения (нажатие кнопки, перерисовка в случае
// перекрытия ...)

if CancelOperation then Break;
// если пользователь нажал кнопку отмены копирования

end; // while

FileSetDate(TargetStream.Handle, FileGetDate(SourceStream.Handle));

TargetStream.Free;
SourceStream.Free;

if CancelOperation then DeleteFile(Target);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
CancelOperation:=True;
Close;
end;

Моно и проще, но без индикаторов :)
Копируется намальна

Var S,T : TFileStream;
Begin
S := TFileStream.Create(sourcefilename, fmOpenRead );
try
T := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate);
try
T.CopyFrom(S, S.Size );