Schon wieder TToggleSwitch

[Willie1]

Hallo Leute,
ich habe vier ToggleSwitches tsw1 bis 4 und will, dass nur einer auf [ein] geschaltet werden kann. Ich habe mir Folgendes ausgedacht:

Delphi-Quellcode:

procedure MultipleChoiceDlg.tsw1Click(Sender: TObject);
var
  tsNr,i: Integer;
begin
  tsNr:=(Sender as TToggleSwitch).Tag;
  for i:=1 to 4 do
    if i <> tsNr then TToggleSwitch(FindComponent('tsw'+IntToStr(i))).State:=tssOff;
//TToggleSwitch(FindComponent('tsw'+IntToStr(tsNr))).State:=tssOn; Das funktioniert nicht!
end;

Die anderen Switches werden zwar [aus] geschaltet aber der angeklickte Switch bleibt unverändert. Ich muss erneut klicken. Nur eine Kleinigkeit aber es ist irgendwie unlogisch. Es sieht so aus, als wenn im OnClick-Ereignis etwas ausgeführt wird, das Schalten des ToggleSwitch nicht mehr statt findet.