[fpc-pascal] platform independant wait

[Marc Santhoff]

Hi,

the subject tells what I'm searching for:

How can i wait a definit amount of time in a platform independant way?

I need to pause a while loop for 1 second. The program should run at
least on FreeBSD and Windows.

<snip>
while NOT doStop do begin
        { wait a little }
        
        doSomethingUseful;
end;
</snip>

At the moment I'm thinking of using something like
"Application.ProcessMessages" and measuring the time explicitely, but a
simple "Wait(1000)" would be best. :)

TIA,
Marc