Fórum Ajuda evento em celula do DBGRID #409814

Boa tarde, gostaria de uma ajuda para efetuar um evento em um dado especifico.

Por exemplo eu executo uma pesquisa de alunos cujo nome é João... Dai aparecerão diversos João, quando o usuário clica-se na linha desse aluno independente da coluna... fizesse uma pesquisa do endereço desse aluno.

O código que fiz é este

procedure TFormConsultaAlunos.DBGrid1CellClick(Column: TColumn);
var
consulta:string;
begin

consulta:=DBGrid1.Columns.Items[1].Field.AsString;
with ZQueryBuscaAlunosEndereco do
begin
if active then close;
SQL[2]:=WHERE Tb_Alunos_Nome like %+ consulta + %;
Open;
end;
end;

Está funcionando mas errado.. para funcionar o usuário precisar clicar 2 vez na linha do aluno... em colunas diferentes.