не работает

[TotKtoNado]

var
  a:integer;
begin
  a:=0;
  a:=a+1;
  form2.Caption:=inttostr(a);
end;

а почему она не работает? Должна каждые 55 мс переменная а должна увеличиваться на 1

[Человек_Борща]

ну а кто считать будет? Вы сами?
Испольуйте таймер с интервалом 55 мс. И все будет нормально.

в принципе можно и без таймера:

var
  a:integer;
begin
   a:=0;
   while True do
   begin
       a:=a+1;
       Sleep(55);
       FormN.Caption:=IntToStr(a);
       Application.ProcessMessages;
   end;
end;

Ошибку найдёте сами. Код рабочий.

[TotKtoNado]

Сообщение от Человек_Борща

ну а кто считать будет? Вы сами?
Испольуйте таймер с интервалом 55 мс. И все будет нормально.

да я всегда использую таймер с интервалом 1 мс раньше считало нормально а сейчас не знаю что она?

[eoln]

a:=0;
a:=a+1;

Это что за ерунда? Это код для таймера? Тут всегда будет 1. Даже если убрать a := 0;, то дело не изменится, так как переменная локальная, а не глобальная.
На счёт 55 мс - это не факт, может отличаться на 10-20 мс (может больше, зависит от много чего)

[TotKtoNado]

Сообщение от eoln

Это что за ерунда? Это код для таймера? Тут всегда будет 1. Даже если убрать a := 0;, то дело не изменится, так как переменная локальная, а не глобальная.
На счёт 55 мс - это не факт, может отличаться на 10-20 мс (может больше, зависит от много чего)

а как тогда7

[Человек_Борща]

стандартный таймер не высокоточный. Он может пропускать 5-15 мс.

Для точности GetTickCount или код который я вам показал=)

Он правда в бесконечном цикле но работает.

[TotKtoNado]

Сообщение от Человек_Борща

стандартный таймер не высокоточный. Он может пропускать 5-15 мс.

Для точности GetTickCount или код который я вам показал=)

Он правда в бесконечном цикле но работает.

не а код какой7 сообразить не могу не помню как я это делал