Escribir y pasar Foco a un Edit

[pepesoft]

Luis F. Orejuela, gracias por tu ayuda.

El codigo quedo asi y claro que yo lo tengo que replicar en cada RadioButton, Funciona mas o menos asi. Copia el valor de la tecla pulsada, pone el foco y tambien el cursor delante del caracter que hay en el Edit.

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

[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;

[pepesoft]

engranaje, Excelente respuesta justo lo que necesito Gracias.