1:
2:
3:
4:
5:
6:

procedure TFormIntZeit.RadioGroup1Click(Sender: TObject);
begin
  if Sender = RadioButton1 then send(17,'ITIM1', status)
  if Sender = RadioButton2 then send(17,'ITIM2', status) 
  if Sender = radioButton3 then send(17,'ITIM3', status)
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
   0 : showmessage('Item 0 ausgewählt');
   1 : showmessage('Item 1 ausgewählt');
   2 : showmessage('Item 2 ausgewählt');
  end
end;					

1:
2:
3:
4:
5:

//Ein RadioGroup-Item ändern:
Form2.RadioGroup1.Items[0] := sTemp;

//Ein RadioGroup-Item neu anlegen:
Form2.RadioGroup1.Items.Add(sTemp);