ScrollBar

hScrollBar[i]:=CreateWindow('scrollbar',
                   nil,
                   ws_visible or ws_child or ws_tabstop,
                   st_pos+30,st_pos+22+50*(i-1),
                   70,22,
                   hwnd,
                   id+2,
                   hInstance,
                   nil);

wm_hscroll:
        begin
          i:=lParam;
          j:=GetWindowLong(lParam, GWL_ID); 
          case loword(wparam) of
            SB_LINEUP:
            begin
              com_color[j]:=GetScrollPos(i,sb_ctl)+1;
              SetScrollPos(i,sb_ctl,com_color[j],true);
            end;
            SB_LINEDOWN:
            begin
              com_color[j]:=GetScrollPos(i,sb_ctl)-1;
              SetScrollPos(i,sb_ctl,com_color[j],true);
            end;
            SB_PAGEUP:
            begin
              com_color[j]:=GetScrollPos(i,sb_ctl)+10;
              SetScrollPos(i,sb_ctl,com_color[j],true);
            end;
            SB_PAGEDOWN:
            begin
              com_color[j]:=GetScrollPos(i,sb_ctl)-10;
              SetScrollPos(i,sb_ctl,com_color[j],true);
            end;
            SB_THUMBPOSITION:
            begin
              com_color[j]:=hiword(wparam);
              SetScrollPos(i,sb_ctl,com_color[j],true);
            end;
          end;
      end;

SB_LINEUP:
SetScrollPos(i,sb_ctl,GetScrollPos(i,sb_ctl)+1,true);

com_color: array [1..3] of word;
 
 
com_color[j]:=GetScrollPos(i,sb_ctl)+1;