Código Delphi [-] if Length(Edit1.Text) <>11 then // o Length(Trim(Edit1.Text))<> 11 si querés eliminar espacios en blanco begin .... Edit1.SetFocus; Exit; end;
if Length(Edit1.Text) <>11 then // o Length(Trim(Edit1.Text))<> 11 si querés eliminar espacios en blanco begin .... Edit1.SetFocus; Exit; end;