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

 if Punkte1 > Punkte2 then
      showmessage('Du hast gegen den bösen Rechner gewonnen!')
    else if Punkte1 < Punkte2 then
      showmessage('Du hast leider gegen den bösen Rechner verloren!')
        else if Punkte1 = Punkte2 then
          showmessage('Es steht Unentschieden zwischen dir und dem Rechner!')

      end;					

1:
2:
3:
4:
5:
6:
7:

  if Punkte1 > Punkte2 then
    ShowMessage('Du hast gegen den bösen Rechner gewonnen!')
  else if Punkte1 < Punkte2 then
    ShowMessage('Du hast leider gegen den bösen Rechner verloren!')
  else
    ShowMessage('Es steht Unentschieden zwischen dir und dem Rechner!')
end;					

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

  if ((a=b) and (a=c) and (a=d) and (a=e)) or     //Fünfling
     ((b=a) and (b=c) and (b=d) and (b=e)) or
     ((c=a) and (c=b) and (c=d) and (c=e)) or
     ((d=a) and (d=b) and (d=c) and (d=e)) or
     ((e=a) and (e=b) and (e=c) and (e=d)) then  
    begin
      edSpieler1.Text:= 'Fünfling';
      Punkte1:=7;
    end                                    
  else if ...