Zwei Fragen zum ersten Programm

[Bausch]

Der Beitrag über mir scheint logisch zu sein, ich habs jedoch anderst gelöst. Hier z.B. die verschiedenen Miet-Beiträge:

Delphi-Quellcode:

 If (Gekauft[aktFeld1].Visible) then
      If (aktFeld1=1)or(aktFeld1=2)or(aktFeld1=3)or(aktFeld1=4)or(aktFeld1=5) then
        begin
        showmessage('schon vergeben  -50');
        aktBetrag1:= aktBetrag1 - 50;
        FEGeld1.Value:= aktBetrag1;
        aktBetrag2:= aktBetrag2 + 50;
        FEGeld2.Value:= aktBetrag2;
        end
      else
         If (aktFeld1=6)or(aktFeld1=7)or(aktFeld1=8)or(aktFeld1=9) then
           begin
           showmessage('schon vergeben  -100');
           aktBetrag1:= aktBetrag1 - 100;
           FEGeld1.Value:= aktBetrag1;
           aktBetrag2:= aktBetrag2 + 100;
           FEGeld2.Value:= aktBetrag2;
           end
         else
           If (aktFeld1=10)or(aktFeld1=11)or(aktFeld1=12)or(aktFeld1=13)or(aktFeld1=14) then
              begin
              showmessage('schon vergeben  -150');
              aktBetrag1:= aktBetrag1 - 150;
              FEGeld1.Value:= aktBetrag1;
              aktBetrag2:= aktBetrag2 + 150;
              FEGeld2.Value:= aktBetrag2;
              end
            else
              If (aktFeld1=15)or(aktFeld1=16)or(aktFeld1=17)or(aktFeld1=18) then
                begin
                showmessage('schon vergeben  -200');
                aktBetrag1:= aktBetrag1 - 200;
                FEGeld1.Value:= aktBetrag1;
                aktBetrag2:= aktBetrag2 + 200;
                FEGeld2.Value:= aktBetrag2;
                end;

Sieht auch für mich nach relativ viel Text aus - Kann man das irgendwie kürzen?
Ich hab jetzt auch einen zweiten Spieler eingeführt (sieht man auch an den verschiedenen Bezeichnungen), aber jetzt stehe ich vor dem Problem, dass ja nur einer Miete zahlen soll, wenn er auf das bereits gekaufte Feld kommt; nämlich der, der es nicht gekauft hat - der Mieter eben
Der, der es gekauft hat, muss momentan bei mir auch Miete zahlen, was ja dem Spielprinzip nicht entgegenkommt Wie kann ich das nun einem bestimmten Spieler zuweisen?