Hide Program certain period of Time

procedure TForm1.Button1Click(Sender: TObject);
var
        CurrentTime: TDateTime; // Aktuelle Zeit
        WaitTime: Single;       // Wartezeit
begin
        // Wartezeit
        WaitTime := 2;
        // *** Anweung verstecken
        // *** Hier kommt die Api Funktion ShowWindow mit der benötigten
        // *** Konstanten SW_HIDE zum tragen.
        ShowWindow(Self.Handle, SW_Hide);
        ShowWindow(Application.Handle, SW_Hide);
        // *** Variable CurrentTime nimmt die aktuelle Zeit auf.
        CurrentTime := Time;
        Repeat  // Repeat Schleife
                (*
                 ProcessMessages = Interrupts the execution of an application so
                 that it can process the message queue.
                *)
                Application.ProcessMessages;
        Until
        Time - CurrentTime > WaitTime / 24 / 3600;
        // *** Anwendung durch die Api Funktion ShowWindow und der
        // *** benötigten Konstanten SW_SHOW wieder anzeigen.
        ShowWindow(Self.Handle, SW_Show);
        ShowWindow(Application.Handle, SW_Show);
     end;  // Prozedurende


procedure TForm1.Exit1Click(Sender: TObject);
begin
        // *** Anwendung beenden
        (*
        Call Terminate to end the application programmatically. By calling
        Terminate rather than freeing the application object, you allow the
        application to shut down in an orderly fashion.
        *)
        Application.Terminate;
end;