高手进来啊... 帮忙看看那里错了.在线等待.. ( 积分: 50 )

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, D7ScktComp, StdCtrls, ComCtrls;
type
connip = record
ssocket:TCustomWinSocket;
size1 : integer;
end;
ipconnlist = ^connip;

type
TForm1 = class(TForm)
ServerSocket1: TServerSocket;
Timer1: TTimer;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
iplist :tlist;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
iplist:=Tlist.Create;
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
var
ipconn:ipconnlist;
begin

New(ipconn);
ipconn.ssocket:=Socket;
ipconn.size1:=0;
iplist.Add(ipconn);
ipconn:=iplist.Items[1];
end;

end.

是不是这里？
ipconn:=iplist.Items[0];

接受答案了.