использую TList
	Код:
	var termial:TStringList;
  I: Integer;
    myList:TList;
begin
    // создаем список
    MYList := TList.Create;
    // создаем сокеты
    for I :=0 to NumberClientSocket do
    begin
        MYClientSocket:=TClientSocket.Create(nil);
        MYClientSocket.Name:='MS'+inttostr(I);
        MYList.Add(MYClientSocket);
    end;
    while True do
    begin
        MYClientSocket(myList[0]).Open;// ошибка подскажите что не так
    end;
end; 
 
MAD: оформляйте код, или последует бан.
ошибка : E2066 Missing operator or semicolon