Code:

procedure TForm1.Edit1Exit(Sender: TObject);

begin

if Edit1.Text <> '' then

begin

   try

     StrToDate(Edit1.Text);

   except

     Edit1.SetFocus;

     MessageBeep(0);

     raise Exception.Create('"' + Edit1.Text

       + '" - некорректная дата');

   end {try};

   Edit1.Text := DateToStr(StrToDate(Edit1.Text));

end {if};

end;