Te recomiendo probar con la WinApi Sleep:
Código:
begin;
MostrarPresentacion;
Sleep(3000); {Espera 3''}
end;
O puedes "fabricarte" tu Delay, con un resultado similar al sleep, usando la WinApi GetTickCount:
Código:
procedure Delay(dwMilliseconds: DWORD); {Similar al Windows.Sleep}
var
ATickCount: DWORD;
begin
ATickCount := GetTickCount + dwMilliseconds;
while ATickCount > GetTickCount do
Application.ProcessMessages;
end;
Saludos!