Sería mucho más fácil si trabajaras con un TRadioGroup:
Código:
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!