Воспользуйтесь поиском и найдите примеры тестов которые есть на этом форуме. Вот отличный пример от lmikle
P.S.: это вообще для чего?
Цитата:
|
Сообщение от KillZoid
procedure TForm1.FormCreate(Sender: TObject);
begin
For i:=1 to 100000000 do
for j:=1 to 25 do;
...
|
|