Inserindo zeros no inicio de um inteiro

//Ex: Se o inteiro for 4 fica 00004. Se for 200, fica 00200.
var
s: string;
begin
FmtStr(s, '%.5d', [StrToInt(edit1.text)]);
edit1.text := s;
end;