[ContraVeneno]

Así lo hago en delphi, no debería haber mucha diferencia en builder; de cualquier manera puedes consultar la ayuda de builder para ver si tiene las mismas funciones que delphi:

Código Delphi [-]
if not FileExists(ExtractFilePath(ParamStr(0))+ExtractFileName(Archivo)) then begin
 try
  CopyFile(pchar(Archivo),pchar(ExtractFilePath(ParamStr(0))+ExtractFileName(Archivo)),True);
  except on E:Exception do begin
     Raise;
  end; //except
 end; //try
end; //if fileexists

"Archivo" es de tipo cadena y contiene la ruta completa al archivo que quiero copiar