Formatar uma string

[Alessandra (Jundiai)]

Estou com mais um probleminha. Tenho que formatar uma string de forma que fique com 4 digitos, ex.:

4 - 0004

32 - 0032

145 - 0145

Estou fazendo assim :

format('5%,4d',[query.fieldbyname('campo').asstring])

[Jhonas]

Tenho que formatar uma string de forma que fique com 4 digitos, ex.:

4 - 0004

32 - 0032

145 - 0145

Exemplo

//Inserindo zeros no inicio de um inteiro

//Ex: Se o inteiro for 1 fica 0001. Se for 100, fica 0100.

var 
s: string;
begin
   FmtStr(s, '%.4d', [StrToInt(edit1.text)]);
   edit1.text := s;
end;

abraço

[Daniel Sanches]

eu utilizo assim:

FormatFloat('0000',Valor);

abraços !!