Тогда так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
t:string;
begin
t:=Edit1.Text+Edit2.Text;
Case StrToInt(t) of
00 : RadioButton1.Checked:=True;
01 : RadioButton2.Checked:=True;
//....
22 : RadioButton9.Checked:=True;
else ShowMessage('....');
end;
end;
ЗЫ: А почему ты не хочешь вместо RadioButton использовать
RadioGroup ???? Мне кажеться, так будет намного удобнее!
