disculpa me olvide mencionar eso, aunque tarde ojala esto te sirva:
Código Delphi
[-]
procedure TUForma.anadir;
begin
with grid do
begin
rowHeights[1] := defaultRowHeight;
if cells[0,1]<>'' then rowCount:= rowCount+1;
cells[0,rowCount-1] := tuDato;
cells[1,rowCount-1] := tuOtroDato;
cells[2,rowCount-1] := tuOtroDato;
...
end;
end;