再接着问啊，vb的怎么翻译成delphi

Question

winsock的控件程序，其中端口参数duankounum可以为0－3， 
       Select Case Index
               Case 0
                    Query(0) = 0
                    Query(1) = 0
                    Query(2) = 0
                    Query(3) = 0
                    Query(4) = 0
                    Query(5) = 6
                    Query(6) = 1
                    Query(7) = 5
                    Query(8) = 0
                    Query(9) = DuanKouNum
                    Query(10) = &HFF
                    Query(11) = 0
               Case 1
                    Query(0) = 0
                    Query(1) = 0
                    Query(2) = 0
                    Query(3) = 0
                    Query(4) = 0
                    Query(5) = 6
                    Query(6) = 1
                    Query(7) = 5
                    Query(8) = 0
                    Query(9) = DuanKouNum
                    Query(10) = &H0
                    Query(11) = 0
        End Select
        If Winsock1.State = 7 Then
           Winsock1.SendData Query
        End If
    End If
h: End Sub好使给100分，没废话

Answer 1

Case Index of
      0:
        begin
          Query[0]: = 0;
          Query[1]: = 0;
          Query[2]: = 0;
          Query[3]: = 0;
          Query[4]: = 0;
          Query[5]: = 6;
          Query[6]: = 1;
          Query[7]: = 5;
          Query[8]: = 0;
          Query[9]: = DuanKouNum;
          Query[10]: = $FF;
          Query[11]: = 0;
        end;      1:
        begin
          Query[0]: = 0;
          Query[1]: = 0;
          Query[2]: = 0;
          Query[3]: = 0;
          Query[4]: = 0;
          Query[5]: = 6;
          Query[6]: = 1;
          Query[7]: = 5;
          Query[8]: = 0;
          Query[9]: = DuanKouNum;
          Query[10]: = $0;
          Query[11]: = 0;
        end;
      end;
      If Winsock1.State = 7 Then
        Winsock1.SendData(Query)

Answer 2

Query应该是什么类型啊，原来的vb是byte类型，我也义的是byte类型，但显示“incompatible types:‘olevariant'and'array'”

Answer 3

试试
Winsock1.SendData(@Query[0]);

Answer 4

4楼的兄弟，我是发一串数字啊，怎么只发一个Query[0]啊?