Edit i 3 mesta posle ','

Kako da u programu napravim da posle ',' samo mogu da stavim recimo 3 znaka (na primer: 12345,123 ili abcde,abc)?
Radi se o Edit-u.
Unapred hvala!
GYGY

Potpis

GYGY

e meni je ovako nesto palo na pamet:
probaj ovo:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key =',' then edit1.MaxLength:=length(edit1.Text)+4;
end;


Trebalo bi da radi!

Radi odlicno!!!
HVALA

Potpis

GYGY