Cantidad de caracteres en un edit

[marcoszorrilla]

Un efecto curioso que puedes lograr es adaptar el ancho del Edit según vayas escribiendo:

procedure TForm1.Edit1Change(Sender: TObject);
begin
edit1.width:=canvas.TextWidth(Edit1.text);
end;

Un Saludo.