[ecfisa]

Hola dmartinezn.

Si deseas que la imágen se almacene donde está situada tu aplicación, me parece más simple hacer por ejemplo:

void __fastcall TForm1::btnCargarImagenClick(TObject *Sender)
{
 AnsiString ImageFileName = "C:\\Imagenes\\FOTO.JPG";
 Image1->Picture->LoadFromFile(ImageFileName);
 Image1->Hint = ExtractFileExt(ImageFileName);
}

void __fastcall TForm1::btnGuardarImagenClick(TObject *Sender)
{
  if(EditImageName->Text.Length() > 0 ) 
  Image1->Picture->SaveToFile(ExtractFilePath(Application->ExeName) +
    EditImageName->Text+Image1->Hint);
}

Saludos.