关于VB转换成Delphi的求助！(100分)

Global hWnd%, nhiCC%, slpName$, nreturn%, nictype%, nzone%, naddr%, nlen%, nCodeLen%, scode$, nauxportcode%, nstatus%
Global SelectCardType, ICCardOpen, selICCardType, selectzone, firstshow, PowerUp, Maxlen%, Nstart%
Global szone$, sCardType$, ncode%()
Global slpdata As String * 255

Type STATUS
me1 As Integer
me2 As Integer
MED As Integer
End Type
Global stat As STATUS

Declare Function iCC_Open Lib "STICCW32.DLL" (ByVal lpName$, hiCC%) As Integer
Declare Function select_card Lib "STICCW32.DLL" (ByVal hiCC%, ByVal card_type%) As Integer
Declare Function closecom Lib "STICCW32.DLL" (ByVal hiCC%) As Integer
Declare Function power_up Lib "STICCW32.DLL" (ByVal hiCC%) As Integer
Declare Function power_down Lib "STICCW32.DLL" (ByVal hiCC%) As Integer
Declare Function erase_word Lib "STICCW32.DLL" (ByVal hiCC%, ByVal zone%, ByVal addr%, ByVal data_len%) As Integer
Declare Function write_card Lib "STICCW32.DLL" (ByVal hiCC%, ByVal zone%, ByVal addr%, ByVal data_len%, ByVal dat$) As Integer
Declare Function read_card Lib "STICCW32.DLL" (ByVal hiCC%, ByVal zone%, ByVal addr%, ByVal data_len%, ByVal dat$) As Integer
Declare Function check_code Lib "STICCW32.DLL" (ByVal hiCC%, ByVal code_length%, code As Byte) As Integer

助人为乐：

var
hWnd : integer;
nhiCC : integer;
slpName : string;
nreturn : integer;
nictype : integer;
nzone : integer;
naddr : integer;
nlen : integer;
nCodeLen : integer;
scode : string;
nauxportcode : integer;
nstatus : integer;
SelectCardType : Variant;
ICCardOpen : Variant
selICCardType : Variant
selectzone : Variant
firstshow : Variant
PowerUp : Variant
Maxlen : integer;
Nstart : integer;
szone : string;
sCardType : string;
ncode : array of integer;
slpdata : string[255];
stat : STATUS;
function iCC_Open( lpName : pchar; var hiCC : integer ) : integer;
function select_card( hiCC : integer; card_type : integer ) : integer;
function closecom( hiCC : integer ) : integer;
function power_up( hiCC : integer ) : integer;
function power_down( hiCC : integer ) : integer;
function erase_word( hiCC : integer; zone : integer; addr : integer; data_len : integer ) : integer;
function write_card( hiCC : integer; zone : integer; addr : integer; data_len : integer; dat : pchar ) : integer;
function read_card( hiCC : integer; zone : integer; addr : integer; data_len : integer; dat : pchar ) : integer;
function check_code( hiCC : integer; code_length : integer; var code : byte ) : integer;

implementation
function iCC_Open; external 'STICCW32.DLL';
function select_card; external 'STICCW32.DLL';
function closecom; external 'STICCW32.DLL';
function power_up; external 'STICCW32.DLL';
function power_down; external 'STICCW32.DLL';
function erase_word; external 'STICCW32.DLL';
function write_card; external 'STICCW32.DLL';
function read_card; external 'STICCW32.DLL';
function check_code; external 'STICCW32.DLL';

接受答案了.