小人要做一个Socket的远程通信控件，但是老是出错，各位高手指点小的啊！谢谢了(100分)

我在com的dll文件里这么写的：
library comtemp;
uses
SysUtils,
ScktComp,
Forms,
Classes;
var
StrLocalStr:string;
GetStrWhole:string;
GetStrReNum:string;
GetStrTimeDurance:string;
GetStrFee:string;
ServerSocket: TServerSocket;
ClientSocket: TClientSocket;
self:TComponent ;
Isserver : boolean;
Procedure CreatConnection();
begin
ClientSocket.Active :=true;
end;
Function InputTheLocalStr(StrSeverID,StrDate,StrReNum :string):string;stdcall;export;
var
GetStrTemps:string;
StrTemps:string;

begin
ServerSocket:=TServerSocket.Create(self) ;
ClientSocket:=TClientSocket.Create(self);
StrTemps := StrSeverID + StrDate + StrReNum;
StrLocalStr := StrTemps;
Isserver:=false;

ServerSocket.Active :=true;
ClientSocket.Host := '210.52.149.172';
ClientSocket.Address:='210.52.149.172';
ClientSocket.Port:=3496;
CreatConnection;

{传送本地字符串StrLocalStr}
if Isserver=true then
begin
ClientSocket.Socket.SendText(StrLocalStr);
StrLocalStr:=ClientSocket.Socket.ReceiveText;
end;

{得到返回字符串GetStrWhole}
{GetStrWhole := ServerSocket.Socket.Connections[0].ReceiveText;}

{ServerSocket.Socket.Connections[0].Close;}

ServerSocket.Close;
ClientSocket.Close;
result := ClientSocket.Socket.ReceiveText;
end;
procedure ServerSocketAccept(Sender: TObject;
Socket: TCustomWinSocket);
begin
Isserver:=true;
end;

不知道错在哪里？ 咄咄指导啊！先谢国了