Dr Bob says this..

This is a Win32 Sleep function for a regular App.

[pascal]
procedure Sleep(MilliSecondsToWait: LongInt);
var StartTime: LongInt;
begin
StartTime := GetTickCount;
while (GetTickCount >= StartTime) and
(GetTickCount < (StartTime + MilliSecondsToWait)) do
Application.ProcessMessages
end {Sleep};
[/pascal]

Unfortunately, there is no XPlatform ProcessMesseges function for SDL. The SDL_Delay might work, but it doesn't appear to be called..

I'm going to try this with the GetTickCount function instead of the SDL_GetTicks