[ecfisa]

Hola.

Creo que quedaría más sencillo usando las funciones que te han sugerido:

#include<StrUtils.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String Nom, Ext;

 if(OpenDialog1->Execute()) {
   Nom = ExtractFileName(OpenDialog1->FileName);
   Ext = ExtractFileExt(Nom);
   Nom = LeftStr(Nom, Nom.Length()-Ext.Length());
   Nom = "CONVERTIDA-" + IntToStr(Button1->Tag) + "-" + Nom + ".JPG";
 }

 ShowMessage(Nom); // aquí lo que desees hacer con 'Nom'
}

Saludos.