Проблема со считыванием файла в delphi

[aftio]

Здравствуйте, у меня следующая проблема: делаю тест, вопросы, время и обязательное количество вопросов считывает из файла. Когда проискходит считывание времени оно не выводится.
Вот алгоритм считывания файла:

 while not Eof(F) do
 begin
 Readln(F,s);
 if s<>'' then
 if s[1]='#' then VOP1:=strtoint(copy(s,2,length(s)))
 else if s[1]='^' then vrema:=copy(s,2,length(s))
 else if s[1]='?' then
 begin
 K[i].question:=copy(s,2,length(s));
 kolvop:=kolvop+1;
 j:=1;
 Readln(F,s);
 while s<>'' do
 begin
 if s[1]='!' then
 K[i].recom:=copy(s,2,length(s))
 else
 begin
 if s[1]='*' then
 begin
 K[i].otvet:=j;
 K[i].ans[j]:=copy(s,2,length(s));
 end
 else
 K[i].ans[j]:=s;
 j:=j+1;
 end;
 readln(F,s)
 end;
 end;
 var_otv[i]:=j-1;
 i:=i+1;
 end;

[C_R_E_S_C_H]

А не проще время хранить так как ему полагается т.е. в формате времени
для преобразования строки во время

strtotime()

для преобразования времени в строку

timetostr()

и почему бы не использовать текстовый массив из 6 на х (х количество вопросов) ячеек 1 ячейка в строке время 2 ячейка вопрос 3-6 ячейки ответы на вопрос (если вариантов ответа 4)

[aftio]

C_R_E_S_C_H, время идет на весь тест, а не на каждый вопрос.
Поменял на такое:

while not Eof(F) do
    begin
      Readln(F,s);
      if s<>'' then
      if s[1]='^' then vrema:=strtotime(copy(s,2,length(s))) else
      if s[1]='?' then
       begin
         K[i].question:=copy(s,2,length(s));
         kolvop:=kolvop+1;
         j:=1;
         Readln(F,s);
        while s<>'' do
         begin
         if  s[1]='!' then
              K[i].recom:=copy(s,2,length(s))
         else
         begin
           if  s[1]='*' then
           begin
              K[i].otvet:=j;
              K[i].ans[j]:=copy(s,2,length(s));
           end
           else
              K[i].ans[j]:=s;
           j:=j+1;
           end;
           readln(F,s)
         end;
     end;
     var_otv[i]:=j-1;
     i:=i+1;
     end;

Но при выводе Label8.caption:=timetostr(vrema);
счетчик становится нулевым.



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.
Возможно я не так задал таймер?? В файле строка с временем ^00:12:00