Réponse acceptée !
@ pers, bonne idée, on sait aussi décoder l'année et le jour ?
ou encore :
procedure TFtestdate.FormCreate(Sender: TObject);
var
s,s2,s3,s4,s5: string;
begin
s := datetostr(date);
s2:= FormatDateTime('dddd',now);
s3:= FormatDateTime('dd',now);
s4:= FormatDateTime('mmmm',now);
s5:= FormatDateTime('yyyy',now);
Pl1.Caption:= s;
Pl2.Caption:= s2 +' ' + s3+' '+s4 + ' '+ s5;
end;
mailto: