Completando um tedit ou tdbedit com zeros a esquerda

{A necessidade de completar com zeros a esquerda um TDBEdit qualquer, sempre
aparece, e você tem que repetir o código para verificar o tamanho da string
resultante e completar a dita cuja com zeros.

Para resolver isso, ligue esta procedure no Evento OnExit do TDBEdit:}

procedure StrZeroField(var elemento : TObject);
begin
if elemento is TDBEdit then
if TDBEdit(elemento).GetTextLen <> 0 then
if StrToInt(TDBEdit(elemento).text) = 0 then
TDBEdit(elemento).text := ''
else
while TDBEdit(elemento).GetTextLen <> TDBEdit(elemento).MaxLength do
TDBEdit(elemento).text := '0'+TDBEdit(elemento).text;
end;
{
O procedimento pode ser facilmente alterado para trabalhar com outros tipos de
componentes de edição.}