[Er_Manué]

Klaro, por ejemplo una forma facil de eliminar los puntos es mediante este código que se ejecuta en el evento onEnter

procedure Tform1.editPrecioVentaEnter(Sender: TObject);
var
  i : integer;
  aux,
  cad : string;
begin
  cad := '';
  aux := edit1.Text;
  for i := 1 to length(aux) do
    if aux[i] in ['0'..'9',','] then cad := cad + aux[i];

  edit1.Text := cad;
end;

Salu2