1:

form1.Frankreich.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + ('\Länder\Frankreich_1.png'));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

if anzahl<0 then form48.showmodal; //zeigt ein fenster "keine negatigen einheiten"
if (anzahl<=form1.Region[7]) and (anzahl>=0) then  begin //anzahl ist die menge der zu verschiebenden einheiten, region[7] die stationierten einheiten in land nr.7
if form1.zielland=74 then begin //zielland gibt an von welchem land in welches verschoben wird (hier 7-4), wird bei auswahl in der combobox geändert
                if form1.zugehoerigkeit[7]<>form1.zugehoerigkeit[4]then begin //wenn die länder nicht ein und dem selben spieler gehören
                a:=form1.region[4];
                b:=anzahl;
                a:=a-b;
                if a>=0 then form46.ShowModal; //zeigt an, dass die eroberung fehlgeschlagen ist
                a:=0;
                b:=0;
                form1.region[4]:=(round(form1.region[4]*1.2)-anzahl); //einheiten des angegriffenen landes werden erneuert, 1.2 ist ein verteidigungsbonus
                form1.Region[7]:=form1.region[7]-anzahl; end //die einheiten des angreifenden landes werden verringert um die anzahl der eingegebenen einheiten
                else if form1.zugehoerigkeit[7]=form1.zugehoerigkeit[4]then begin //wenn beide länder einem besitzer gehören, ledigliech einheitenverschiebung
                form1.verschieben[4]:=form1.verschieben[4]+anzahl;
                form1.Region[7]:=form1.region[7]-anzahl; end
                end;

                if form1.region[4]<0 then begin form1.Region[4]:=0-form1.region[4]; //wenn die einheiten des angegriffenen landes unter 0 kommen (nur bei angriff möglich)
                                                form1.zugehoerigkeit[4]:=form1.zugehoerigkeit[7]; //zugehörigkeit wird mit der des angreifers überschrieben
                                                form5.klick:=1; //ist eine laufvariable, die verhindert, dass in einer runde aus einem land mehrmals verschoben wird
                                                form45.ShowModal; //zeigt, dass die eroberung erfolgreich war
                                                end;
                if form1.zugehoerigkeit[4]=1 then begin form1.Frankreich.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + ('\Länder\Frankreich_1.png')); //lädt das bild für die zugehörigkeit zu spieler1
                end;
                if form1.zugehoerigkeit[4]=2 then begin form1.Frankreich.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + ('\Länder\Frankreich_2.png')); //und hier für spieler 2
                end;