unit DelayThread; interface uses Windows, Classes; type TDelayThread = class(TThread) private protected procedure Execute; override; end; implementation { TDelayThread } procedure TDelayThread.Execute; begin Sleep(5000); end; end.