[Мяфк]

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

Код:

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. Так же безрезультатно.
Подскажите пожалуйста.