...
procedure TForm1.SetScrollBarHrzPos(Hnd: THandle; Pos: Integer);
var
Info: TScrollInfo;
begin
Info.cbSize:= SizeOf(TScrollInfo);
Info.fMask:= SIF_POS;
Info.nPos:= Pos;
SetScrollInfo(DBGrid1.Handle,SB_HORZ,Info, True);
end;
procedure TForm1.SetScrollBarVerPos(Hnd: THandle; Pos: Integer);
var
Info: TScrollInfo;
begin
Info.cbSize:= SizeOf(TScrollInfo);
Info.fMask:= SIF_POS;
Info.nPos:= Pos;
SetScrollInfo(DBGrid1.Handle,SB_VERT,Info, True);
end;
...