Maski w MaskEdit

Już kiedyś o to pytałem, a mianowicie:
Jak zrobić aby w edicie po wpisaniu przecinka było mozna wpisać tylko dwa znaki (ilość miejsc przed przecinkiem jest nieokreślona). odpowiedziano miże można wprowadzić odpowiednia maskę do Maskedit. No taj próbowałem, próbowałem i za nic nie mogę wymyślić tej maski.
Czy wie ktoś jak ta maska może wyglądać?
Oczywiście jeśli znacie inny sposób to też odpowiedzcie.

Dzięki.

Maskami się nigdy nie bawiłem, ale można coś takiego zrobić (trochę okrężne rozwiązanie, ale ujdzie):

procedure MainFrm.MyEditChange(Sender: TObject);
begin
 with MyEdit do begin
  while pos(',', copy(Text, pos(',', Text)+1, Length(Text)-pos(',', Text)))>0 do
   delete(Text, Length(Text), 1); //Kasowanie ostatniego znaku, aż będzie tylko jeden przecinek
  while pos(',', Text<Length(Text)-1) do delete(Text, Length(Text), 1); //Kasowanie ostatniego znaku, aż po przecinku będą nie więcej niż 2 znaki
  end;
 end;

Oczywiście do tej procedurki możnaa dodać parę rzeczy lub ją ulepszyć, to taki przykład był. Może nie działać, było pisane na poczekaniu i bez sprawdzenia, ale raczej powinno.