判断类型的函数是什么？相当于VB里面的type()?

Question

1,判断类型的函数是什么？相当于VB里面的type()?
2,TForm1.FormKeyPress(Sender: TObject; var Key: Char);
      怎么把上面的key转换成int?
3,怎么在
case UPCASE(KEY)  of
#65 :  showmessage('a');
写成相当VB的
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case LCase(Chr(CLng(KeyCode)))
        Case "a" '左
            Command4_Click
        Case "w" '上
            Command2_Click
        Case "" '右
            Command5_Click
        Case "s" '下
            Command1_Click
        Case "q"
            Command3_Click
    End Select
End Sub

Answer 1

1.
ty:=vartype(s);
  case ty of
  0:st:='empty';
  1:st:='null';
  2:st:='Smallint';
  3:st:='integer';
  4:st:='single';
  5:st:='Double';
  6:st:='Currency';
  7:st:='Date';
  8:st:='OleStr';
  9:st:='Dispatch';
  10:st:='Error';
  11:st:='Boolean';
  12:st:='Variant';
  13:st:='Unknown';
  14:st:='ShortInt';
  17:st:='Byte';
  18:st:='Word';
  19:st:='LongWord';
  20:st:='int64';
  256:st:='string';
  end;
  showmessage(st);

Answer 2

2:ord() 函数3:case upcase(key) of
'A':button1.click;
'W':.............
....
end;

Answer 3

3.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
   38:showmessage('上');
   39:showmessage('右');
   40:showmessage('下');
   37:showmessage('左');
   end;
end;