[marcoszorrilla]

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 Var
 dia, mes, annee:Word;
 cFecha:String;
 begin
 Dia := 10;
 Mes:= 02;
 Annee:=2005;
 cFecha:=FormatFloat('00',dia)+
         FormatFloat('00',mes)+
         FormatFloat('0000',annee);
 
 ShowMessage(cFecha);
 
 end;

Un Saludo.