1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function Losungstag(Datum: TDateTime): Integer;
begin
Result:=DaysBetween(Datum, StrToDate('01.01.' + IntToStr(Integer(YearOf(Now)))));
end;

procedure TForm1.Button1Click(Sender: TObject);
var z: Integer;
begin
z:=Losungstag(Now);
end;                    

1:

z := DayOfTheYear(now);                    

1:
2:
3:
4:
5:
6:
7:

00477130   53                     push    ebx
00477131   8BDA                   mov     ebx, edx
00477133   8BD3                   mov     edx, ebx
00477135   E83668FDFF             call    0044D970
0047713A   814B2400000200         or      dword ptr [ebx+$24], $00020000
00477141   5B                     pop     ebx
00477142   C3                     ret                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

function IsXP: Boolean;
var
  OS: TOSVERSIONINFO;
begin
  OS.dwOSVersionInfoSize := SizeOf(TOSVERSIONINFO);
  GetVersionEx(OS);
  Result := (OS.dwPlatformId = VER_PLATFORM_WIN32_NT) and
    (OS.dwMajorVersion = 5) and (OS.dwMinorVersion = 1);
end;

// Schattiertes Form anzeigen (XP)
procedure TForm1.CreateParams(var Params: TCreateParams);
const
  CS_DROPSHADOW = $00020000;
begin
  if IsXP then
  begin
  inherited;
  Params.WindowClass.Style:=Params.WindowClass.Style or CS_DROPSHADOW;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.CreateParams(var Params: TCreateParams);

  function IsXP: Boolean;
  var
    OS: TOSVERSIONINFO;
  begin
    OS.dwOSVersionInfoSize := SizeOf(TOSVERSIONINFO);
    Result := GetVersionEx(OS) and (OS.dwPlatformId = VER_PLATFORM_WIN32_NT) and
      (OS.dwMajorVersion = 5) and (OS.dwMinorVersion = 1);
  end;

const
  CS_DROPSHADOW = $00020000;
begin
  inherited CreateParams(Params);
  if IsXP then
    Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;