[pablitous]

esa funcion me andubo perfecto, mil gracias

quedo una cosa asi ahora:

procedure TForm1.Button1Click(Sender: TObject);
var a,b:string;
begin
  OpenDialog1.Execute;
  DBEdit3.Text := OpenDialog1.FileName;
  a:=DBEdit3.Text;
  b:=ExtractFileName(a);
  copyfile(Pchar(a),Pchar(b),false);
  DBEdit3.Text:=b;
end;

pero ahora solo me toma el nombredel archivo, por lo que necesitaria agregarla la ruta de ejecucion del programa y noc de donde sacarla.

solo esta linea me faltaria cambiar:

b:=ruta de ejecucion del programa + '\' + ExtractFileName(a);

y tendria que usar quotedstr?