Obtener contenido de celda en DBGrid

[Kannon]

Bueno pues tengo una base de datos llamada "Ciudadanos " en la cual hay una tabla llamada "personas" en esta tabla se muestras los campos: código, nombre, edad y genero. en la aplicación de c++ builder (utilizo el XE5) uso un DBGrid para mostrar las búsqueda de un Query.

Una vez realizada esta búsqueda y mostrado su resultado en el DBGrid, cuando se da clic derecho sobre algún registro aparece un Popup en el cual se dan las opciones de: "Modificar Usuario", "Eliminar Usuario" y "Enviar E-mail"( Esto pienso hacerlo mediante Indy SMTP ).

Mi problema es que para poder modificar o eliminar un registro necesito saber en que fila fue el clic, para con ese numero de fila desplazarme hasta la columna 1 ( donde se encuentra el código ) y ahora con este valor poder ejecutar en el query la sentencia: DELETE * FROM personas WHERE idCiudadano= (el valor que recupero del DBGrid). He estado viendo algunas funciones de este pero la verdad no encuentro la forma.

Para la conexión a base de datos ( La cual esta hecha en MySql ) uso: Database, Datasource, Query. Tenia en mente un codigo parecido a este:

try
	 {
	   Query1->Close();
	   Query1->SQL->Clear();
	   Query1->SQL->Add("DELETE * FROM personas WHERE idCiudadano='"+DBGrid1->Fields->+"'");
	   Query1->Active=true;

	   if(Query1->RecordCount==0)
		{
		  MessageDlg("Error al eliminar el usuario",mtError,TMsgDlgButtons()<< mbOK,0);
		  return;
		}
	 }
	catch(...)
	 {
	   MessageDlg("Error de Eliminación",mtError,TMsgDlgButtons()<< mbOK,0);
	   return;
	 }
	MessageDlg("Usuario Eliminado",mtInformation,TMsgDlgButtons() << mbOK,0);

Pero la verdad no encuentro la manera de poder lograrlo, les agradezco mucho por la ayuda que puedan brindarme ( soy nuevo en el foro y principiante en delphi, espero haberme explicado bien )

[Caminante]

Código Delphi [-]
Query1->SQL->Add("DELETE * FROM personas WHERE idCiudadano='"+DBGrid1->datasource->dataset->fieldbyname('codigo')->asstring+"'");

Bueno creo q mas o menos asi. No manejo C++ buider..

Saludos

[Kannon]

Empezado por Caminante

Código Delphi [-]
Query1->SQL->Add("DELETE * FROM personas WHERE idCiudadano='"+DBGrid1->datasource->dataset->fieldbyname('codigo')->asstring+"'");

Bueno creo q mas o menos asi. No manejo C++ buider..

Saludos

Pues la verdad es que me ha dado resultado, es increíble. De verdad te lo agradezco.

[ecfisa]

Hola Kannon.

También podrías hacer:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (MessageBox(Handle,
                 "¿Desea eliminar el registro?","",
                 MB_YESNO + MB_ICONQUESTION)== IDYES) {
    Query1->Close();
    Query1->SQL->Text = "DELETE FROM PERSONAS WHERE IDCIUDADANO = :PID";
    Query1->ParamByName("PID")->Value = 
      DBGrid1->DataSource->DataSet->FieldByName("IDCIUDADANO")->Value;
    Query1->ExecSQL();  
  }
}

Saludos