Código Delphi [-] begin showmessage(inttostr(Length(Edit1.text))); end;
begin showmessage(inttostr(Length(Edit1.text))); end;