Delphi-Quellcode:
procedure TForm19.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
-1: ShowMessage('Nichts markiert');
0: Label3.Caption:='Dat is nich richtig! Versöch nochmal!';
1: Label3.Caption:='Dat is richtig!';
2: Label3.Caption:='Dat is nich richtig! Versöch nochmal!';
3: Label3.Caption:='Dat is nich richtig! Versöch nochmal!';
4: Label3.Caption:='Dat is nich richtig! Versöch nochmal!';
end; // case
end; // procedure
end.
Das Case benötigt ein eigenes "end;"
