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];