Avanceret edit felt (disablecolor og editmask?)

Jeg har tidligere brugt ...

har ikke lige et bud på at disable edit color og font, og heller ikke grunden til det,

den her er snowball ophavsmand til...
//kun tal i edit
type
  TCharSet = set of char;

procedure TFMain.ValidateEdit(Edit: TEdit; ValidChars: TCharSet);
var
  s: string;
  i: Integer;
begin
  s := Edit.Text;
  for i := 1 to length(s) do
    if not (s[i] in ValidChars) then
      Delete(s, i, 1);

  Edit.text := s;
  Edit.SelStart := length(s);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  ValidateEdit(Sender as TEdit, ['0'..'9']);
end;

>Stone
Tak for svar.
Disablecolor er godt idet man gerne vil have felter gråt (standard);Delphis egne komponenter låser bare teksten og gør den/teksten grå! Hvad hvis man vil låse et felt men have vædien læsevenlig!!
Nå men tak for koden. Jeg har dog fundet PBEditPack (fw) på http://bak-o-soft.dk/ ... det ser rigtig godt og prof ud og løser nettop mine 'ønsker'. Så dem vælger jeg fremfor at lave det selv!