[roman]

Otra forma de hacerlo es usando streams:

procedure CopyFile(const Source, Dest: String);
var
  FromStream, ToStream: TFileStream;

begin
  FromStream := TFileStream.Create(Source, fmOpenRead);
  try
    ToStream := TFileStream.Create(Dest, fmCreate);
    try
      ToStream.CopyFrom(FromStream, 0);
    finally
      ToStream.Free;
    end;
  finally
    FromStream.Free;
  end;
end;

Según la ayuda de Delphi (de donde surgió el ejemplo) este método serviría también para Kylix.

// Saludos