problem with psSendmail and Paradox 10

I am using psSendmail 1.1 and Paradox 10 10.0.0.990 on a Windows 2000 Pro SP4 machine. The code below (from a script) sends the message but disappears at the "lngRetVal = SendMsg(strMsgText)" instruction. The email is sent but Paradox keeps running and consumes a 1500 Mhz P-4. I have to close Paradox to get back to normal usage.
Any thoughts?

below is part of the script:

Uses psSendMail

QuickSend(Host Cptr, strFrom Cptr, SendTo Cptr, Subject Cptr, MsgText Cptr ) clong ;for longint

Connect( xHost cptr) clong ;0 (Connected) -1 (Not Connected)

InitMsg( xHost cptr, xmsgFrom cptr, xmsgTo cptr, xCC cptr, xBCC cptr, xSubject cptr) clong ;0 (No Error) -1 (No Host specified) -2 (No from e-mail address supplied) -3 (No send to e-mail address(es) supplied)

Attach( xFilename cptr)clong ;0 file found, -1 couldn't find file to attach

SendMsg( xMsgText cptr)clong ;0 (No Error) -1 (MsgText is blank) -2 (Error occurred while sending message)

Quit()

endUses

method run(var eventInfo Event)

var
strHost, strFrom, strSendTo, strCC, strBCC,
strSubject, strMsgText, strFileName
string
lngRetVal longint ;;0 no error,
-1 no message,
-2 error while sending
endVar
fStat.open(":getXOS:status.fsl")
fStat.setTitle("GETXOS status")
.
.
.
.
strHost = "192.168.0.8"
strFrom = "paradox@xytronics.com"
strSendTo = "jquesenberry@xytronics.com"
strCC = "jay@userfcs.com"
strBCC = "jay@userfcs.com"
strSubject = "test 0703051611"
strMsgText = sLine

;;connect to the mail server
lngRetVal = Connect(strHost)
if lngRetVal = 0 then ;0 (Connected) -1 (Not Connected)
message("connected")
sleep(1000)
else
msginfo("Mail Error","Error Connecting")
Quit()
return
endif

;;set the header info
if (InitMsg(strHost, strFrom, strSendTo,strCC, strBCC, strSubject)=0) then
{0 (No Error)
-1 (No Host specified)
-2 (No from e-mail address supplied)
-3 (No send to e-mail address(es) supplied) }

message("Setting Header")
sleep(1000)
else
msginfo("Mail Error","Header information incorrect")
Quit()
return
endif

;;send the message
lngRetVal = SendMsg(strMsgText)
switch
case lngRetVal = 0 : ;0 (No Error)
;-1 (MsgText is blank)
;-2 (Error occurred while
;sending message)
message("Sending message")
sleep(1000)
case lngRetVal = -1 :
msginfo("Mail Error","Message is blank. \nError No. "+strval(lngRetVal))
Quit()
return
case lngRetVal = -2 :
msginfo("Mail Error","Error in sending message. \nError No. "+strval(lngRetVal))
Quit()
return
otherwise :
msginfo("Mail Error","Unknown Error")
Quit()
return
endswitch

MsgInfo("","Messge sent")

exit()
endMethod

I think the issue may be that while you have declared strMsgText as a string variable you have not declared sline.  I do not see where the value for sLine is set and therefor you may be passing an unassigned value to the dll.  This may cause unforseen problems, make sure strMsgText has a value.  Probably even an empty string would work.