تابع DateToStr دوتا overload داره که تو overload دومش یک پارامتر از نوع TFormatSettings میگیره که فرمت تبدیل تاریخ رو مشخص می کنه.


procedure TForm1.FormCreate(Sender: TObject);
var
TFM: TFormatSettings;
begin
TFM.DateSeparator:= '/';
TFM.ShortDateFormat:= 'yyyy/mm/dd';
Caption:= DateToStr(Now, TFM);
end;