função datetolongstr

function DateToLongStr(Date:TDate):String;
Var Year, Month, Day: Word;
begin
DecodeDate(Date,Year, Month, Day);
Result:=inttostr(month)+´/´+intToStr(Year);
end;

eu utilizo esta função da seguinte maneira
dm.tblancdetalhedatal.value := datetolongstr(dm.tbdatadata.value);

só que tem o seguinte problema, é criado uma string 1/2004 eu gostaria que fosse criado assim 01/2004, o que tenho que fazer