Hola,
¿y que problema tienes?
Código Delphi
[-]
procedure Tform1.DBGrid1CellClick(Sender : TObject);
var MiVariable : String;
begin
MiVariable := DBGrid1.Cells[DBGrid1.Col, DBGrid1.Row]; end;
Alomejor, no te he entendido bien, quizá podrías expresarte de otra manera si no corresponde con la solución que te dí.
Saludos