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;