how to validate if a string is 10 characters in delphi code example

Example: how to validate if a string is 10 characters in delphi

if length(sNumber)>10 then
showmessage('Please enter the correct cellphone number');