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:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:

unit mMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,mRahmen1,mZufallsRahmen;

type
TMain = class(TForm)
BtLoeschen: TButton;
BtEnde: TButton;
BtStart: TButton;
procedure BtLoeschenClick(Sender: TObject);
procedure BtEndeClick(Sender: TObject);
procedure BtStartClick(Sender: TObject);
private
{ Private-Deklarationen }
zRahmen1,zRahmen2,zRahmen3: TZufallsRahmen;
public
{ Public-Deklarationen }
end;

var
Main: TMain;

implementation

{$R *.dfm}

procedure TMain.BtLoeschenClick(Sender: TObject); // Lösch prozedur
begin

if zRahmen1 <> nil then //abfrage, ob es existiert??
begin
zRahmen1.Destroy; //fragt, ob es Den 1. Rahmen gibt
zRahmen1 := nil;
end;

if zRahmen2 <> nil then //fragt, ob es Den 2. Rahmen gibt
begin
zRahmen2.Destroy;
zRahmen2 := nil;
end;

if zRahmen3 <> nil then //fragt, ob es Den 3. Rahmen gibt
begin
zRahmen3.Destroy;
zRahmen3 := nil;
end;

end;

procedure TMain.BtEndeClick(Sender: TObject);
begin

close;

end;

procedure TMain.BtStartClick(Sender: TObject);
begin

zRahmen1:= TZufallsRahmen.Create(20,200,80,8,Main);
zRahmen1.Zeichnen;

zRahmen2:= TZufallsRahmen.Create(150,200,60,4,Main);
zRahmen2.Zeichnen;

zRahmen3:= TZufallsRahmen.Create(250,200,100,6,Main);
zRahmen3.Zeichnen;

end;

end.