Developing.ru

procedure TIdIRC.Say(ATarget, AMsg: String);
begin
Raw(Format('PRIVMSG %s :%s', [ATarget, AMsg])); {Do not Localize}
end;

procedure TIdIRC.Raw(ALine: String);
begin
{ Send the string directly to the server without processing. Line is
terminated by CR-LF pair. }
if Connected then
begin
WriteLn(Aline+#13#10);
if Assigned(FOnSend) then
begin
FOnSend(Self, ALine);
end;
end
else
begin
if Assigned(FOnError) then
begin
FOnError(Self, nil, '', RSIRCNotConnected); {Do not Localize}
end;
end;
end;