[engranaje]

No es necesario que lo repliques en cada RadioButton. Basta con que se asigne en el OnKeyPress de cada radio button el mismo procedure. Todos los RadioButton pueden apuntar al mismo (si realmente quieres hacerlo exactamente igual en todos ellos)

Por otra parte si además de lo que has explicado cada radio button debe hacer cosas adicionales, o el texto debe enviarse a disitintos edits, puedes crearte un procerude del tipo:

Código Delphi [-]
procedure EnviarTeclaAtEdit(var Key: Char; aDestinoTecla:tEdit); 
begin   
  if key in ['a'..'z','A'..'Z','1'..'9','0', #13] then   
  begin
    aDestinoTecla.Text := Key;    
    aDestinoTecla.SetFocus;     
    aDestinoTecla.SelStart := length(aDestinoTecla.text);   
  end; 
end;

Para despues llamar al procedure en el OnKeyPress de cada radioButton de esta forma, pasandole el edit en el que quieras escribir:

Código Delphi [-]
procedure TForm1.RadioButtonKeyPress(Sender: TObject; var Key: Char); 
begin  
  EnviarTeclaAtEdit(Key,txtbuscar); 
end;