Hola, muchas gracias a los dos. Al final he implementado una mezcla de lo que tenía con la primera opción que me sugirió Neftali:
<DIV class=frame_codigo_delphi>Código Delphi
[-]<DIV class=texto_codigo_delphi id=delphi_div_455c2fd095f16>
index := sgViajesCorto.Row;
if (sgViajesCorto.RowCount <> index+1) then
begin
while (index