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.