[Delhi] Pytanie dotyczy komponentach Memo, RichEdit i Label.

Chcę, aby wpisując do komponentów RichEdit lub Memo pokazywało ni w Label1 i Label2 ile postawiłem znaków i ile zostało ni znaków do postawienia biorąc pod uwagę, że mogę postawić 200 znaków uwzględniając odstępy pomiędzy wyrazami. Dziękuje za pomoc :d :|

Length(Memo1.Text);

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
const maximum=10;
var
len:integer;
teraz:integer;
begin
if keychr(VK_BACK) then
begin
len:=length(memo1.text);
teraz:=maximum-len;
if len=maximum then key:=#0 else
label1.caption:='Pozostało ci '+inttostr(teraz)+' znaków z '+inttostr(maximum);
end;
end;

[b]keypress[/b]