[_Nox_]

i:=0;
while (i<>10) do
begin
{Чё нибудь делаешь}
Inc (i);
end;
{Так как счётчик в этом месте точно уже будет 10, то делаем тут что надо}