Процедура для RadioButton

[Sanlex]

подскажите плз какая процедура должна быть в Button что бы текст с выбраного RadioButton переместился в Label на Form 2?

[Lardes]

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
  begin
    if Components[I] is TRadioButton then
      if (Components[I] as TRadioButton).Checked then
        Label1.Caption := (Components[I] as TRadioButton).Caption;
  end;
end;

[artemavd]

Ничо так интерфейс, понятненький))