1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

begin
 if g<300 then begin showmessage('Zu wenig Geld'); end       ///in dieser zeile nur
else if g >= 300 then begin Form1.Waffe.Caption:='G36C';
Form2.Waffe2.Caption:='G36C';
Form3.Waffe3.Caption:='G36C';
Form5.Waffe4.Caption:='G36C';
p:=35;
g:= g -300;
Form1.geld.Caption:= inttostr(G) +' $';
Form2.geld2.Caption:= inttostr(G) +' $';
Form3.geld3.Caption:= inttostr(G) +' $';
Form5.geld4.Caption:= inttostr(G) +' $';
Image2.Hide; end
end;					

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

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;
......
var
  Form5: TForm5;

implementation

uses Unit3, Unit2, Unit1;					

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

var
  Form1: TForm1;
  p : integer;
  z : integer;
  g : integer;

implementation

uses Unit3, Unit2, Unit4, Unit5;

{$R *.dfm}