Hola Oscar.
No sé si es el efecto que estas buscando, pero fijate si así te sirve:
Código Delphi
[-]
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
rg: TRadioGroup;
begin
if Key = #27 then
begin
Key := #0;
Close;
end;
if Key = #13 then
begin
Perform(WM_NEXTDLGCTL, 0, 0);
if ActiveControl is TRadioGroup then
begin
rg := RadioGroup1;
if rg.ItemIndex = - 1 then rg.ItemIndex := 0;
TRadioButton(rg.Controls[rg.ItemIndex]).SetFocus;
end;
Key := #0;
end;
end;
Saludos