Selecionar dados de um StringGrid

Olá
Gostaria de saber se tem alguem q ja tenha feito este codigo abaixo?
Eu fiz e funciona perfeito, mas o q estou tentando fazer é, selecionar o dados das celular, so q não usando a possição do mouse e sim da seleção do StringGrid.
Ex. tenho 9 registro (linha c dados) movo a seleção do Grid p a linha 4.

uma melhor visão do q estou fazendo
-
Caption:= ´Coluna: ´ + IntToStr(Coluna) + ´ - ´ +
´Linha: ´ + IntToStr(Linha); //parte do codigo abaixa
//
Label1.Caption:= ´StringGrid1.cells[´+IntToStr(Coluna)+
´,´+IntToStr(Linha)+´]´;
Label2.Caption:= StringGrid1.Cells[Coluna,Linha];

//Teste p lançar nos edit...
LabeledEdit4.Text:= StringGrid1.cells[4,Linha];
LabeledEdit6.Text:= StringGrid1.cells[3,Linha];
-
Já tenho a possição da coluna definida e a linha é o mouse q define, mas não quero usar o mouse, quero fazer pelo proprio StringGrid, tipo seto a linha e pressiono o enter e meus Edits recebem os valor

-----------------------------------
//Inclua na seção uses: Windows

procedure MouseCell(Grid: TStringGrid;
var Coluna, Linha: integer);
var
Pt: TPoint;
begin
GetCursorPos(Pt);
Pt := Grid.ScreenToClient(Pt);
if PtInRect(Grid.ClientRect, Pt) then
Grid.MouseToCell(Pt.X, Pt.Y, Coluna, Linha)
else begin
Coluna := -1;
Linha := -1;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Coluna, Linha: integer;
begin
MouseCell(StringGrid1, Coluna, Linha);
if (Coluna >= 0) and (Linha >= 0) then
Caption := ´Coluna: ´ + IntToStr(Coluna) + ´ - ´ +
´Linha: ´ + IntToStr(Linha);
else
Caption := ´O mouse não está no StringGrid´;
end;
-----------------------------------

grato pela ajuda

Francisco