Maximale Zeichen eines Edit ermitteln...

[Daniel B]

und in einem Label anzeigen. Nicht vergessen, MaxLength im OI setzen.

Code:

[b]procedure[/b] TForm1.Edit1Change(Sender: TObject);
[b]var[/b]
  i: integer;
[b]begin[/b]
  i := Edit1.MaxLength - Length(Edit1.Text);
  Label1.Caption := 'Nur noch ' + IntToStr(i) + ' Zeichen!';
[b]end[/b];