delphi2007 教程

[求助]ClientSocket连接问题 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiNetwork/html/delphi_20061119211029296.html
我是新手，现在碰到如下的问题，对我来说挺棘手的，请教大家了  
   
  CS1:TClientSocket;  
   
  Function   Tform1.ConnectTo(S:string):boolean;   //连接服务器  
  begin  
              ShowMessage('11');  
              CS1.Active:=false;  
              CS1.Address:=S;  
              CS1.Port:=7000;  
              CS1.Active:=true;  
  end;  
   
  自已写的ConnectTo的方法，当我执行ConnectTo(ServerIP);时，也就是执行至上述代码段时，显示完'11'后，立刻就跳出异常，大概是  
  Debugger   Exception   Notification  
   
  Project   Project1.exe   raised   excption   class   EAccessViolation   with   message   'Access   violation   at   address   00454B6C   in   module   'Project1.exe'.Read   of   address   000000030.Process   stopped.  
   
  为什么会这样呢，设CS的Active状态就会这样。看别人的程序，好像都可以啊  
  求助大家了，谢谢啊

自已先顶一个...

大家帮帮忙啊，  
  不知道怎么调咯...

去掉showmessage

你确认你的CS1已经被CREATE了吗？

应该是没有create,  
   
  1.手动create;  
  Function   Tform1.ConnectTo(S:string):boolean;   //连接服务器  
  begin  
              ShowMessage('11');  
              CS1:=TClientSocket.Create(Application);  
              CS1.Active:=false;  
              CS1.Address:=S;  
              CS1.Port:=7000;  
              CS1.Active:=true;  
  end;  
   
   
  2.从控件面板,拉一个TClientSocket下来,将其命名为CS1  
   
  //CS1:TClientSocket;   这个变量声明注释掉

确实是没creat，谢谢大家啊，问题解决了...