so ich habe die sache jetzt folgendermaßen gelöst:
Delphi-Quellcode:
const channel : '#meinChannel';
{...}
procedure TForm1.Button3Click(Sender: TObject);
begin
irc1.GetTopic(channel);
end;
und
Delphi-Quellcode:
procedure TForm1.IRC1Raw(Sender: TObject; AUser: TIdIRCUser; ACommand,
AContent: String; var Suppress: Boolean);
var langeU, langeC:integer;
begin
langeu := length(irc1.Nick);
langec:=length(channel);
if copy(acontent,1,langeu+langec+3) = irc1.Nick+' '+channel+' :' then
begin
delete(acontent,1,langeu+langec+3);
memo1.Lines.Add(acontent)
end;
end;
so erhalte ich das topic, umständlich, funktioniert aber
