IRC-Bot verbunden aber k. Receive

[nabbl]

ist vllt. ein _bisschen_ alt, aber könntest du evtl. nochmal nen ganzen quelltext angeben? bei mir kommen nämlich nur fehler ^^

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  IdBaseComponent,
  IdComponent,
  IdTCPConnection,
  IdTCPClient,
  IdIRC;

var IdIRC1: TIdIRC;

Procedure IdIRC1Raw(ASender: TIdContext; AIn: Boolean;
  AMessage: String);
begin

end;

begin
  IdIRC1 := TIdIRC.Create(nil);
  IdIRC1.OnRaw := IdIRC1Raw;
  IdIRC1.Host := 'de.quakenet.org';
  IdIRC1.Port := 6667;
  IdIRC1.Nickname := 'derultitest';
  IdIRC1.Password := '';

  try
    IdIRC1.Connect;

  if IdIRC1.Connected then
    IdIRC1.Join('#testecke');

  while IdIRC1.Connected do
    Sleep(100);

  finally
    IdIRC1.Free;
    end;
end.

Das is mein Quelltext bis jetzt