Código Delphi [-] Case Radiogroup.ItemIndex of 1:xxx 2:xxxx end;
Case Radiogroup.ItemIndex of 1:xxx 2:xxxx end;