formatação de campo

olá pessoal...

aqui no sistema eu tenho um campo que é o "codprod" esse campo esta definido como texto (BD Access)

eu defini como texto pois preciso que os numeros salvos nele fique dessa forma: 000123 , 000124 e assim sucessivamente!

antes esse campo estava definido como numero entao ele tirava esses 000 da frente...

só que esse numero era digitado manualmente, agora o sistema gera ele... gera usando o seguinte:

var
Numero : Integer;
begin
dm.q_loja.Insert;
with dm.q_contagem do begin

close;
SQL.Text:='select contagem from tbl_contagem';
Open;
Numero := dm.q_contagem.FieldbyName('contagem').AsInteger;
f_incluir_imoveis.numero.Text := IntToStr(Numero);
close;
SQL.Text:='update tbl_contagem set contagem =:contagem';
Parameters.ParamByName('contagem').Value := Numero + 1;
ExecSQL;

só que o problema é que preciso que ao gerar o numero o mesmo já seja formatado, por ex: gero o numero 27 entao automaticamente o sistema formate para 0000027.

tentei fazer o seguinte: (mas nao foi... rsss...)

 StrToFloat(DBEdit1.Text);
 DBEdit1.Text := FormatFloat('000000', StrToFloat(DBEdit1.Text));

* anteriormente estava usando o campo na tabela como numerico, e formatava o campo em tempo real

DBEdit1.Text := FormatFloat('000000', StrToFloat(DBEdit1.Text));
funcionava certinho, só que quando esses dados eram exibidos em um DBGrid, ficava sem formatação, na hroa de imprimir um relatorio tambem saia sem formatação... por isso pensei em deixar o campo como text, gerar o numero formatado e gravar desse jeito (com a formatação) no BD.

mas... como fazer isso?

obrigado!