1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

if Length(Label1.Caption) = Length(Wort) then begin
  with application do begin
    NormalizeTopMosts;
    case MessageBox('Restart program?', 'Look', MB_YESNO) of
      ID_YES: WinExec(pChar(ParamStr(0)),SW_SHOW);
      else
        Close;
      end;   
    end;
  end;