Hallo...
du setzt ja auch mit jedem Key die Radiogroup auf Index 0.
versuch mal
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = Ord('E') then RadioGroup1.ItemIndex := 0;
if Key = Ord('X') then RadioGroup1.ItemIndex := 1;
if Key = Ord('A') then RadioGroup1.ItemIndex := 2;
if Key = Ord('D') then RadioGroup1.ItemIndex := 3;
end;