Доброе время суток

задача:
Есть пользователи с ID. 
Если пользователь онлайн ему посылается сообщение.
Сообщение не посылается, если с момента последнего сообщения не прошло Х времени (скажем 3 часа).
В процессе программка может перезапускаться.

Решение:
в файле хранить ID и время, когда данному ID было послано последнее сообщение.
Получаю системную дату, перевожу ее в строку s:=DateToStr(today)+' '+TimeToStr(today);  сохраняю в файл.

Проблема:
как с s получить today?

Либо есть другое решение данной задачи?

Delphi XE3

Добавлено через 11 минут и 30 секунд
решение найдено

StrToDateTime

Всем спасибо

Это сообщение отредактировал(а) od0201 - 24.7.2013, 10:41

1) Запускаю программу, записывается дата в файл
2) Закрываю программу
3) Решил поменять региональные настройки с другим форматирование дат
4) Открываю программу
5) Получаем ошибку невозможности сконвертировать строку в дату

Не факт, если для записи и чтения пользоваться потокобезопасными версиями функций с ручным выставлением TFormatSettings 

О я глупец ! Конечно, всё оно так и было, автор сначала изучил потокобезопасность, ручное выставление TFormatSettings, а затем нашёл что есть такая функция как StrToDateTime. 

od0201, Зачем такой изврат? Дата/время - это дробное число. Сохраняй в файл это число. Не будешь иметь проблем с форматами дат.