Telnetserver in Lazarus

[DelTurbo]

Hi,
erstelle ich ein Konsolenprogramm dann kommt folgender fehler, mit dem ich leider nix anfangen kann. Deswegen hänge ich mal den Quelltext mit dran.

exception at 0806D30F:
List index (0) out of bounds.

Delphi-Quellcode:

  { add your program here }
  IDTelnetServer1:=TIDTelnetServer.Create;
  SocketHandle:=TIdSocketHandles.Create(IDTelnetServer1);
  IDTelnetServer1.Bindings.Add;
  IDTelnetServer1.Bindings:=SocketHandle;

  IDTelnetServer1.Bindings.Items[0].ClientPortMax:=0;
  IDTelnetServer1.Bindings.Items[0].ClientPortMin:=0;
  IDTelnetServer1.Bindings.Items[0].IP:='127.0.0.1';
  IDTelnetServer1.Bindings.Items[0].IPVersion:=Id_IPv4;
  IDTelnetServer1.Bindings.Items[0].Port:=23;
  IDTelnetServer1.Bindings:=SocketHandle;
  IDTelnetServer1.Active:=True;
  sleep(10000);
  IDTelnetServer1.Active:=False;
  IDTelnetServer1.Free;
  // stop program loop
  Terminate;

Ich bin für jede hilfe dankbar.