Hallo,
löblich, dass Du Dir nochmals Gedanken gemacht hast; leider ist das Resultat nicht besser geworden.
Kommentiere Deinen Code doch mal.
Woher soll jemand ausser Dir wissen, was 'partie' und 'teams' sind?
Desweiteren:
Delphi-Quellcode:
then gleich:=true;
else gleich:=false;
vor einem 'else' schreibt man kein ';' nicht - nein.
Und besorg Dir einen CodeFormatter (bspw. 'DelForExp')