funktioniert StrToDate richtig?

[alf.stefan]

Hallo Forum

ich habe ein kleines Problem

wenn ich fogendes ausführe und in Edit 1
z.B 05-28-2005 eingebe
kommt in Label1 May-28-2005 obwohl der Formatstring mit 'mmm'
laut hilfe die Kurzform des Monatsnamen akzeptieren soll.

Ich muß aber eingaben im Format mmm-dd-yyyy' verarbeiten.
aber dann krieg ich immer einen Fehler.

wenn ich z.B : May-31-2005 eingebe krieg ich einen Fehler!!!
('Mai-28-2005' ist kein gültiges Datum.)

Kann mir mal jemand sagen warum?

Hoffe auf erklärende Antworten

Stefan

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  d1 : TDate;
begin
    if key =VK_RETURN then
    begin
        ShortDateFormat := 'mmm-dd-yyyy';
        DateSeparator := '-';
        d1 := StrToDate(Edit1.Text);
        label1.Caption := dateToStr(d1);
    end;
end;

end.