Wo ist die Abfrage von den Radiobuttons? Die sind in deinem geposteten Quelltext garnicht enthalten ...
Achja, dein Quelltext geht auch einfacher zu schreiben und vor allem übersichtlicher
Delphi-Quellcode:
procedure TForm5.CheckBox1Click(Sender: TObject);
begin
if not CheckBox1.Checked then
Form3.Statusbar1.Panels[4].Text:= ''
else
Form3.Statusbar1.Panels[4].Text:= 'Datum: '+FormatDateTime('dd.mm.yyyy', Now);
end;
Lars S.
Wer nicht mit der Zeit geht, geht mit der Zeit.