function LeadingZero(n : string;zeroes : byte) : string;
begin
        while length(n)<zeroes do n:='0'+n;
        LeadingZero:=n;
end;

function damefecha : string;
var
meses : string;
Present: TDateTime;
Year, Month, Day : Word;
const Dias : array [1..7] of string = (
'domingo','lunes',
'martes','miercoles',
'jueves','viernes','sabado');
begin
        meses:='ENEFEBMARABRMAYJUNJULAGOSEPOCTNOVDIC';
        Present:= Now;
        DecodeDate(Present, Year, Month, Day);
        result:=Dias[DayOfWeek(Present)]+','+LeadingZero(inttostr(Day),2)+'/'+
        meses[(month-1)*3+1]+
        meses[(month-1)*3+2]+
        meses[(month-1)*3+3]+'/'
        +LeadingZero(inttostr(Year),4);
end;

La funcion LeadingZero es un clasico rescatado de la ayuda del turbo pascal, dado un numero devuelve una cadena con el numero formateado con 0. Es decir si tenemos el numero 256 y queremos mostrarlo con 6 numeros, LeadingZero(256,6) nos dara la cadena '000256'.