IRC получение сообщения

[jone]

Доброго время суток! прочу вас помочь мне, я пишу irc бот, появились сложности в обработчике принятия сообщения вот код

procedure IdIRC1Raw(Sender: TObject; AUser: TIdIRCUser; ACommand,
AContent: String; var Suppress: Boolean);
  begin
 ShowMessage(AUser.Nick+' '+Acommand+' '+AContent);
end;


 Procedure Connect;
begin
 randomize;
 irc:=Tidirc.Create(nil);
 IRC.OnRaw:=IdIRC1Raw; // тут ругается на меня 
 IRC.Host:=Server ;
 IRC.Port:= port;
 IRC.Nick:= pref+'_'+intToStr(random(255));
 IRC.AltNick:= intToStr(random(255));
 IRC.RealName:= 'Dmitriy';
   try
    IRC.Connect;
  except
    if not IRC.Connected then
      begin
         SleepEx(5000,true);
         write('Error connectiing to   ' + IRC.Host);
          Connect;
      end;
  end;
  write('connected OK ' +  IRC.Host+ intToStr(IRC.Port)+IRC.Nick);
  IRC.Join(CHANNEL);
  IRC.Say(CHANNEL, 'hi');


end;

вотак ругается
[Error] Project1.dpr(59): Incompatible types: 'method pointer and regular procedure'

подскажите как исправить мой код

[Пепел Феникса]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, idIRC;

type
  TForm1 = class(TForm);
    procedure IdIRC1R(Sender: TObject; AUser: TIdIRCUser; ACommand,AContent: String; var Suppress: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  V1:TIdIRC;

implementation

---------------------------------------------------------

procedure TForm1.IdIRC1Raw(Sender: TObject; AUser: TIdIRCUser; ACommand,
AContent: String; var Suppress: Boolean);
  begin
 ShowMessage(AUser.Nick+' '+Acommand+' '+AContent);
end;


 Procedure Connect;
begin
 randomize;
 irc:=Tidirc.Create(nil);
 IRC.OnRaw:=Form1.IdIRC1Raw; // тут ругается на меня 
 IRC.Host:=Server ;
 IRC.Port:= port;
 IRC.Nick:= pref+'_'+intToStr(random(255));
 IRC.AltNick:= intToStr(random(255));
 IRC.RealName:= 'Dmitriy';
   try
    IRC.Connect;
  except
    if not IRC.Connected then
      begin
         SleepEx(5000,true);
         write('Error connectiing to   ' + IRC.Host);
          Connect;
      end;
  end;
  write('connected OK ' +  IRC.Host+ intToStr(IRC.Port)+IRC.Nick);
  IRC.Join(CHANNEL);
  IRC.Say(CHANNEL, 'hi');


end;

я проверял так работает

[jone]

Моя программа работает без формы, а вы показали с формой

нужно без формы

[jone]

делаю так

type
  Tirc = class(TidIRC)
    procedure IdIRC1R(Sender: TObject; AUser: TIdIRCUser; ACommand,AContent: String; var Suppress: Boolean);
     end;

procedure IdIRC1Raw(Sender: TObject; AUser: TIdIRCUser; ACommand,
AContent: String; var Suppress: Boolean);
begin
ShowMessage(AUser.Nick+' '+Acommand+' '+AContent);
end;


 Procedure Connect;
begin
 randomize;
 irc:=Tidirc.Create(nil);

 IRC.OnRaw:=IRC.OnRaw;
 IRC.Host:=Server ;
 IRC.Port:= port;
 IRC.Nick:= pref+'_'+intToStr(random(255));
 IRC.AltNick:= intToStr(random(255));
 IRC.RealName:= 'Dmitriy';
   try
    IRC.Connect;
  except
    if not IRC.Connected then
      begin
         SleepEx(5000,true);
         write('Error connectiing to   ' + IRC.Host);
          Connect;
      end;
  end;
  write('connected OK ' +  IRC.Host+ intToStr(IRC.Port)+IRC.Nick);
  IRC.Join(CHANNEL);
  IRC.Say(CHANNEL, 'hi');


end;

работает без ошибок но ShowMessage(AUser.Nick+' '+Acommand+' '+AContent); не выполняет (((

[jone]

ну помагите пожалуста :*(