si archivo existe renombrar con parametro

[jonydread]

estoy usando este codigo

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Ori, Des: TMemoryStream;
  i: Integer;
  b: Byte;
  Nombre: string;
begin
  if OpenDialog1.Execute then
  begin
    Ori:= TMemoryStream.Create;
    Des:= TMemoryStream.Create;
    try
      Ori.LoadFromFile(OpenDialog1.FileName);
      TomarNombre(OpenDialog1.FileName, Nombre);
      for i:= 0 to Ori.Size - 1 do
      begin
        Ori.Read(b, 1);
        Des.Write(b, 1)
      end;
      Des.SaveToFile(Nombre)
    finally
      Ori.Free;
      Des.Free
    end;

la verdad no me habia percatado que el archivo solo copia y le cambia el nombre al de origen no lo procesa como puedo hacer el llamado

Código Delphi [-]
LlamarReg2inf(Handle,'reg2inf.exe',Origen,path+Destino );

gracias!!