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.