1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm1.IdIRC1PrivateMessage(ASender: TIdContext; const ANicknameFrom,
  AHost, ANicknameTo, AMessage: string);
var
sData,results,version,status : String;                                    // für irc commands
wetter , wetter2 , info , plz : string;
p: integer;
begin
version        := '!ver';                   //!version
status         := '!status';        
result         := '!wetter';


wetter  := '4Das wetter für die plz:'+ plz;
wetter2  := '9'+ info;

sData := AMessage;
memo1.Lines.add(sData);
sData := LowerCase(sData);

if AnsiPos(LowerCase(result),LowerCase(sData)) > 0 then       // nach !wetter suchen
begin
  IdIRC1.Say('#test' , wetter);
  IdIRC1.Say('#test' , wetter2);
end;                    

1:

procedure TForm1.IdIRC1Raw(ASender: TIdContext; AIn: Boolean; AMessage: string);