Problemas con foco

[ecfisa]

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