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; If ((Pos(',',Cd))<>0) AND (Key=',') Then Key:=#0; (Sender as TEdit).ReadOnly := not (key in [#8,#46, ',','0'..'9']); end;
Ahora ya puedo asignarle al evento OnKeyPress de los 9 TEdit la misma rutina
Gracias a todos.