TIdIRC [Indy] Problem

[Toenn]

hm warum geht das nich´?

Delphi-Quellcode:

procedure TForm1.IdIRC1Topic(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel; const AChanName, ATopic: String);
var topicini: TIniFile;
var i: Integer;
begin
if CheckBox2.Checked then begin
for i := 0 to NumTok(Form2.LabeledEdit4.Text, ' ') do
 begin
   if Auser.Nick = GetTok(Form2.LabeledEdit4.Text, i, ' ') then begin
   Edit2.Text := ATopic;
   topicini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'settings.ini');
   topicini.WriteString('Channel', 'Topic', Edit2.Text);
   topicini.Free;
   IdIRC1.Say(Label2.Caption, 'Topicsave active.');
 end else begin
   IdIRC1.SetTopic(Label2.Caption, Edit2.Text);
   IdIRC1.Say(Label2.Caption, 'You are not allowed to change the Topic.');
end;
end;
end;
end;

danke,
toenn