GetDateFormat problem

[Luckie]

Das geht bei mir:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  lSystemTime  : TSystemTime;
  lBuffer      : array[0..64] of Char;
  lErrorCode   : Integer;
begin
  FillChar(lSystemTime, sizeof(TSYSTEMTIME), #0);
  lSystemTime.wDay := 25;
  lSystemTime.wMonth := 8;
  lSystemTime.wYear := 2004;

  if GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, @lSystemTime, nil,
    lBuffer, sizeof(lBuffer)) <> 0 then
    ShowMessage(string(lBuffer))
  else
    ShowMessage(SysErrorMessage(GetLastError));
end;

Bei einer ungültigen Angabe wird auch "Falscher Parameter" ausgegeben.