si archivo existe renombrar con parametro

[jonydread]

hola amigo gracias por tu tiempo
aplique el codigo aqui pero no me funciona

Código Delphi [-]
procedure TReg2infConverter.Button2Click(Sender: TObject);
var Origen, Destino,FileName,Path,s: string;
begin
if ExtractFileExt(opendialog1.FileName) = '.reg' then
begin
TomarNombre(opendialog1.FileName, s);
Path:=GetshortName(ExtractFilePath(Opendialog1.FileName));
Filename := Extractfilename(opendialog1.FileName);
Origen := GetshortName(opendialog1.FileName);
Filename:= AnsiReplaceStr(Filename,' ','');
Destino :=ChangeFileExt(Filename, '.inf');
LlamarReg2inf(Handle,'reg2inf.exe',Origen,path+Destino );
end else
MessageDlg('Archivo invalido!', MtError, [mbOK],0);
end;

he probado de diferentes formas pero no me resulta que hago mal??