procedure TForm1.FormCreate(Sender: TObject); begin ADOTable1.FieldByName('FieldName').DisplayWidth := 16; end;