Código Delphi [-]TuConsulta.FieldByName('ITEM').DisplayFormat := '"A"000';
TuConsulta.FieldByName('ITEM').DisplayFormat := '"A"000';