TStringGrid - scrollbar

Procedure Opdatering;
var
  HuskRow : integer;
begin
    HuskRow := StringGrid1.Row;


    Udfør dine opdateringer

    StringGrid1.Row := HuskRow;

end;

Den går ikke.. For der er ikke markeret en row når man bare bruger scrollbaren..


Men fandt ud af lidt.. Der virker ser det ud til:

var
  info: TScrollInfo;
  scrollAmount: integer;
begin

  FillChar(info, SizeOf(info), 0);
  with info do
  begin
    cbsize := SizeOf(info);
    fmask := SIF_ALL;
    GetScrollInfo(grdAnkomst.Handle, SB_VERT, info);
    fmask := fmask or SIF_PAGE;
    scrollAmount := info.nTrackPos;
  end;

  ...
  //timer kode...
  ...
  info.nTrackPos := scrollAmount;
  SetScrollInfo(grdAnkomst.Handle, SB_VERT, info, True);
end;

nå.. jeg svarer mig selv..