Tiempo de Espera

[delphi.com.ar]

Te recomiendo probar con la WinApi Sleep:

begin;
  MostrarPresentacion;
  Sleep(3000); {Espera 3''}
end;

O puedes "fabricarte" tu Delay, con un resultado similar al sleep, usando la WinApi GetTickCount:

procedure Delay(dwMilliseconds: DWORD); {Similar al Windows.Sleep}
var
  ATickCount: DWORD;
begin
  ATickCount := GetTickCount + dwMilliseconds;
  while ATickCount > GetTickCount do
    Application.ProcessMessages;
end;

Saludos!