[Мяфк]

Здравствуйте у меня есть система логов, то есть копирование текста из программы в тхт файл. Дак вот возникла надобность сделать имена логов как дата и время. Т.е. к примеру 18ч01м2009г19ч18м32с.txt
Дак вот проблема в том, что мне надо, что бы когда пользователь запустил программу и прошло 10 секунд (таймер у меня уже есть) создался лог файл и при прохождение ещё 10 секунд, не создавался бы лог файл, а записывался в первый и так пока программа не будет закрыта и запущена снова. Пытался сделать, вот последние мои опыты:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

procedure Timelog(i:integer); var lt: TSYSTEMTIME; s:string; begin GetLocalTime(lt); if (i = 1) then AddLog(form1.script.Text,s+'.txt') else s:= IntToStr(lt.wDay) + 'ч' +     IntToStr(lt.wmonth) + 'м' +     IntToStr(lt.wYear) + 'г' +     IntToStr(lt.wHour) + 'ч' +     IntToStr(lt.wMinute) + 'м' +     IntToStr(lt.wSecond) + 'с';     AddLog(form1.script.Text,s+'.txt');     end;   procedure TForm1.Timer1Timer(Sender: TObject); var i:integer; begin i:=i+1; if (form13.ComboBox1.ItemIndex = 2) then Timer1.Enabled:=false else if (i=1) then Timelog(0) else Timelog(1); end;

Это я пытался сделать через переменную, якобы когда срабатывает первый таймер, переменная i получает значение 1, а когда следующие на единицу больше, вот так проверку построил, но не выходит. Так же пытался в процедуре таймер проверить на длинну s. Так же безрезультатно.
Подскажите пожалуйста.