[delphi.com.ar]

Sería mucho más fácil si trabajaras con un TRadioGroup:

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  Edit1.Text := RadioGroup1.Items[RadioGroup1.ItemIndex];
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  RadioGroup1.ItemIndex := TStringList(RadioGroup1.Items).IndexOf(Edit1.Text);
end;

Esto es trabajando directamente con el texto de los RadioButtons, si tu texto no es igual al valor que pretendes, puedes trabajar con una lista paralela, o con un array.

Saludos!