Para edzatarin ou quem puder ajudar

Colega recebi a sua instrução. Funciona mais apaga sempre a ultima linha da stringgrid. O que eu preciso é que apague a linha que o usuário desejar. Rotina do edzatarin, enviado em 24.06.2003,
//verifica se há algo no grid
if (sgGrid.RowCount <= 2) or (trim(sgGrid.cells[0,sgGrid.row]) = ´´) then
Exit;

//puxando a linha de baixo
for i := sgGrid.row to sgGrid.rowcount do
begin
//puxando a linha
sgGrid.cells[0,i] := sgGrid.cells[0,i+1];
sgGrid.cells[1,i] := sgGrid.cells[1,i+1];
sgGrid.cells[2,i] := sgGrid.cells[2,i+1];
sgGrid.cells[3,i] := sgGrid.cells[3,i+1];
sgGrid.cells[4,i] := sgGrid.cells[4,i+1];
end;

//eliminando linha
sgGrid.rowcount := sgGrid.rowcount - 1;