1:

Application.terminate					

1:
2:
3:

Form1.Close;
//bzw.
Application.MainForm.Close,					

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:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:

  procedure TFormCosts.ButtonWeiterClick(Sender: TObject);
// und ins RichEditCosts////////////////////////
var
   lCounter: Integer;
begin
// löschen der ersten Zeile /////////////////////
RichEditCosts.Lines.Delete(0);

//und Erstellen der Überschrifft in Fett + Zeilenumbruch//////
  with RichEditCosts do
    begin
    SetFocus;
    SelStart := Length(Text);
    SelAttributes.Style := [fsBold];
    Lines.Add ('9   Costs'#13#10);
    SelAttributes.Style := SelAttributes.Style-[fsBold];
    end;
  // Initialisierung der Laufvariablen
lCounter := 0;
  // Schleife zum Durchlaufen aller Einträge der ListBox
while lCounter < CheckListBoxCosts.Items.Count
do begin
  // Alle in Folge markierte Einträge ins RichEdit (Schleife)
if CheckListBoxCosts.Checked[lCounter]
then begin
RichEditCosts.Lines.Add (CheckListBoxCosts.Items.Strings[lCounter]);
end; // for While
  // Schleifenzähler erhöhen, damit der nächste Eintrag gewählt wird
inc(lCounter);
end; // for if

// Weiter zum letzten Fenster
FormCosts.Close;
FormFinal.Show;

FormFinal.Report.Lines. Delete(0); // erste Zeile Löschen wegen Überschrift

// Sammeln der RichEditEinträge ins FormFinalRichEdit(Report)//////////////////
FormFinal.Report.Lines.AddStrings (Form1.RichEdit1.Lines );

FormFinal.Report.Lines.Add (#13#10);    // Zeilenumbruch

// einfügen des RichEdits über Zwischenablage, weil formatiert/////////////////
FormGeneral.RichEditGeneral.SelectAll;
FormGeneral.RichEditGeneral.CopyToClipBoard;
FormFinal.Report.PasteFromClipBoard;
{FormFinal.Report.Lines.AddStrings (FormGeneral.RichEditGeneral.Lines);}

FormFinal.Report.Lines.Add (#13#10);    // Zeilenumbruch

FormSewage.RichEditSewage.SelectAll;
FormSewage.RichEditSewage.CopyToClipBoard;
FormFinal.Report.PasteFromClipBoard;
{FormFinal.Report.Lines.AddStrings (FormSewage.RichEditSewage.Lines);}

FormFinal.Report.Lines.Add (#13#10);    // Zeilenumbruch

FormHeating.RichEditHeating.SelectAll;
FormHeating.RichEditHeating.CopyToClipBoard;
FormFinal.Report.PasteFromClipBoard;
{FormFinal.Report.Lines.AddStrings (FormHeating.RichEditHeating.Lines); }

FormFinal.Report.Lines.Add (#13#10);    // Zeilenumbruch

FormAir.RichEditAir.SelectAll;
FormAir.RichEditAir.CopyToClipBoard;
FormFinal.Report.PasteFromClipBoard;
{FormFinal.Report.Lines.AddStrings (FormAir.RichEditAir.Lines); }

FormFinal.Report.Lines.Add (#13#10);    // Zeilenumbruch

FormElectro.RichEditElectro.SelectAll;
FormElectro.RichEditElectro.CopyToClipBoard;
FormFinal.Report.PasteFromClipBoard;
{FormFinal.Report.Lines.AddStrings (FormElectro.RichEditElectro.Lines);}

FormFinal.Report.Lines.Add (#13#10);    // Zeilenumbruch

FormLifts.RichEditLifts.SelectAll;
FormLifts.RichEditLifts.CopyToClipBoard;
FormFinal.Report.PasteFromClipBoard;
{FormFinal.Report.Lines.AddStrings (FormLifts.RichEditLifts.Lines); }

FormFinal.Report.Lines.Add (#13#10);    // Zeilenumbruch

FormBuilding.RichEditBuilding.SelectAll;
FormBuilding.RichEditBuilding.CopyToClipBoard;
FormFinal.Report.PasteFromClipBoard;
{FormFinal.Report.Lines.AddStrings (FormBuilding.RichEditBuilding.Lines);}

FormFinal.Report.Lines.Add (#13#10);    // Zeilenumbruch

FormDefaults.RichEditDefaults.SelectAll;
FormDefaults.RichEditDefaults.CopyToClipBoard;
FormFinal.Report.PasteFromClipBoard;
{FormFinal.Report.Lines.AddStrings (FormDefaults.RichEditDefaults.Lines);}

FormFinal.Report.Lines.Add (#13#10);    // Zeilenumbruch

FormCosts.RichEditCosts.SelectAll;
FormCosts.RichEditCosts.CopyToClipBoard;
FormFinal.Report.PasteFromClipBoard;
{FormFinal.Report.Lines.AddStrings (FormCosts.RichEditCosts.Lines);}

end;

procedure TFormCosts.ButtonClearClick(Sender: TObject);
var
   lCounter: integer;
begin
     for lCounter:=CheckListBoxCosts.Items.Count-1 downto 0
     do begin
     if CheckListBoxCosts.Checked [lCounter]
     then begin CheckListBoxCosts.Items.Delete (lCounter);
     end;
         end;
     CheckListBoxCosts.Items.SaveToFile ('C:Word\Costs.doc');
     CheckListBoxCosts.Items.LoadFromFile ('C:Word\Costs.doc');
     EditCosts.Clear;
                     end;

procedure TFormCosts.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Close
end;

end.					

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

procedure TFormCosts.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Close
end;

end.					

1:
2:
3:

procedure TForm2.Button2Click(sender: TObject);
form2.close;
end;					

1:
2:
3:

procedure TForm2.Button2Click(sender: TObject);
form3.showmodal;
end;					

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

procedure TForm2.Button2Click(Sender: TObject);
begin
form3.showmodal;   //öffnet form3
form3.close; //schließ form3
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
form1.close;  //bei betätigen des buttons(schießen)schließst sich die form 1 und 2 zusammen
form2.close;
end;					

1:
2:
3:
4:
5:

procedure TFormGeneral.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Application.Terminate
end;