Во-первых, в функции потока необходимо
Во-вторых, и чтобы не было этого бредового
, есть специальная функция
Скоко раз так делал все нормально было
Если ты так делал, и было нормально, это совсем не означает что это правильно!
Еще раз повторяю, нет гарантии, что
будет выполняться определенное время/
Надеюсь теперь понятно.
UPD:
function proc(): integer;
begin
Sleep(Твое время задержки);
//Твои действия "второй части" (потока).
result:= 0;
end;
var id: DWORD;
h: THandle;
begin
h:= CreateThread(nil, 0, @proc, nil, 0, id);
//Твои действия "первой части" (потока);
WaitForSingleObject(h, infinite); //ждем завершения созданного потока.
end.
где? Иначе программа никогда не завершится