Adicionar zeros à esquerda em delphi

Adicionar zeros à esquerda de um númeroExistem várias formas.

Vejamos uma:
function tbStrZero(const I: integer; const Casas: byte): string;var Ch: Char;begin Result := IntToStr(I); if Length(Result) > Casas then begin Ch := '*'; Result := ''; end else Ch := '0';
while Length(Result) < Casas do Result := Ch + Result;end;

{ Exemplo de como usá-la: }
var S: string; Numero: integer; {...}begin {...} S := tbStrZero(Numero, 6); {...}end; ObservaçõesSe o comprimento desejado (Casas) não for suficiente para conter o número, serão colocados asteriscos.