DateToStr gibt->1899aus bei D7

[Loni]

Hallo also ich wollte das aktuelle Datum auslesen lassen über DateToStr aber es wird immer der 30.12.1899 ausgegeben ?????
Hier der Quelltext (DieUhrzeit wird aber richtig ausgegeben.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg, Menus, Buttons;

type
  TWakeUp = class(TForm)
    LbAktZeit: TLabel;
    Timer1: TTimer;
    ImSpider: TImage;
    LbTime: TLabel;
    LbAlarm: TLabel;
    LbDate: TLabel;
    LbAktDatum: TLabel;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  WakeUp: TWakeUp;
  DateTime: TDateTime;
  TimeStrV, DateStrV: String;


implementation

{$R *.dfm}

procedure TWakeUp.Timer1Timer(Sender: TObject);
begin
DateTime := GetTime;
TimeStrV := TimeToStr(DateTime);
DateStrV := DateToStr(DateTime);
LbAktZeit.Caption := TimeStrV;
LbAktDatum.Caption := DateStrV;
end;

end.