想把CLIENTSOCKET编译成一个DLL，可以吗

[xpzhou]

想编写一个DLL，供PB调用，传入两个参数，服务器IP地址，发送内容。程序如下，在PB里运行却报错。请问如何处理？
library clientsocket;

{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }

uses
SysUtils,
ScktComp,
Classes;

{$R *.res}
function sendmsg(svr_ip , send_text : string) : integer; stdcall;
var
ClientSocket1: TClientSocket;
begin
ClientSocket1.Address:=svr_ip;
ClientSocket1.port:=2058;
ClientSocket1.Active:= false;
ClientSocket1.Active:= true;
ClientSocket1.Socket.SendText(send_text);
result:=1;

end;
exports
sendmsg;
begin
end.

编译时，有如下提示：[Warning] clientsocket.dpr(23): Variable 'ClientSocket1' might not have been initialized，有关系吗？另外到底是用INDY的IDTCPCLIENT好还是D7自己的CLIENTSOCKET好

[postren]

不能用string 用pchar代替

[postren]

另外，用阻塞模式

ClientSocket1.ClientType := ctBlocking;