[[Caral]]

Hola
Para entenderlo un poco mejor acuerdate de usar las etiquetas.

Código Delphi [-]
if(Ba->Caption=="Agregar")
{ Ba->Caption="Guardar";
DBApe->Text="";
DBApe->SetFocus();
DMAgenda->TCApellid->Append();
}
else
{ Ba->Caption="Agregar";
DMAgenda->TCApellid->Insert();
DMAgenda->TCApellid->Post();
}

saludos