Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Автоматический формат даты в компоненте TEdit

01.01.2007
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;
 

https://delphiworld.narod.ru/

DelphiWorld 6.0