procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Length(edit1.Text) < 9 then
Label1.Caption := IntToStr(Length(edit1.Text));
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(edit1.Text) < 9 then
Label1.Caption := IntToStr(Length(edit1.Text));
end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Length(edit1.Text) < 9 then
Label1.Caption := IntToStr(Length(edit1.Text));
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(edit1.Text) < 9 then
Label1.Caption := IntToStr(Length(edit1.Text));
end;