Varios TEdit solo numericos

[tarco35]

Muestro como lo he resuelto:

Código Delphi [-]
procedure TFormNuevaVisita.Edit2KeyPress(Sender: TObject; var Key: Char);
var
  cd:string;
begin
  If Key='.' then Key:=',';
  cd :=(Sender as TEdit).Text;  // variable intermedia para clarificar codigo
  If ((Pos(',',Cd))<>0) AND (Key=',') Then Key:=#0;  // solo se permite un signo de puntuacion
  (Sender as TEdit).ReadOnly := not (key in [#8,#46, ',','0'..'9']);  // sentencia encontrada por el foro, no recuerdo de quien
end;

Ahora ya puedo asignarle al evento OnKeyPress de los 9 TEdit la misma rutina
Gracias a todos.