[Rhot]

Спасибо заработало!
Если не затруднит ещё такой вопрос:

date_ok:=SysUtils.Date;
DateSeparator:='_';
lbl2.caption:=datetostr(date_ok);

Как был разделитель даты 27.07.2010 так и остался. Почему так?