求救！急！！！

Question

求救下面这句程序翻译为delphi的语句int WINAPI SubmitA(unsigned char OrgTON,unsigned char OrgNPI,
               LPCTSTR OrgAddr,unsigned char DestTON,unsigned char
DestNPI,LPCTSTR DestAddr,unsigned char PRI,
               unsigned char RD,unsigned char RP,unsigned char SRR,unsigned
char MR,unsigned char DCS,
               unsigned char PID,LPCTSTR Schedule,LPCTSTR Expire,unsigned
long Default_ID,unsigned char UDHI,
               unsigned long UDLen,LPCTSTR UserData,unsigned long*
SM_ID,unsigned char* FCS);

Answer 1

function  SubmitA( OrgTON: char;....):integer; stdcall;

Answer 2

我写的是Function SubmitA(OrgTON:char;OrgNPI:char;OrgAddr:LPCTSTR;DestTON:char;DestNPI:char;
                 DestAddr:LPCTSTR;PRI:char;RD:char;rp:char;SRR:char;MR:char;
                 DCS:char;PID:char;schedule:LPCTSTR;Expire:LPCTSTR;defaultid:integer;
                 UDHI:char;UDlen:integer;userdata:LPCTSTR;SM_ID:Pinteger;FCS:pchar):integer; 在调用的时候老是报错
程序如下：
procedure TForm1.Button5Click(Sender: TObject);
const PRI='0';
DCS='8';RD='0';RP='0';SRR='0';MR='0';
PID='0';defaultid=0;
UDHI='0';
userdata='你好';
var sM_id:integer;
Udlen:integer;
FCS:char;
iret:integer;
begin     Udlen:=length(userdata);
     try
     iret:=submitA('2','1','08004','2','1','13586399588',
                   PRI,RD,RP,SRR,MR,DCS,PID,LPCTSTR(Datetimetostr(now())),
                   LPCTSTR(Datetimetostr(now()+1)),defaultid,UDHI,Udlen,
                   LPCTSTR(userdata),psM_id,pFCS);
     except
     on e:Exception  do
     Edit1.Text:=e.Message
     end;
     if iret<>0 then
     showmessage('发送失败!');end;