1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure gesamtSumme;     // berechnet Gesamtsumme aus berechneten Feldern!
var sum: Currency;
begin
 with Form1 do
 begin
  Query1.DisableControls;
  sum := 0; Query1.First;
  while not Query1.EOF do
  begin
   sum := sum + Query1GesamtPreis.Value;
   Query1.Next
  end;
  Query1.EnableControls;
  Table1.Edit;
  Table1GesamtNetto.Value := sum;
  Table1.Post
 end
end;					

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

type
 TTyp = class
 public
 private
  procedure_xy(i:integer);
end;

implementation

procedure TTyp.Prozedur_xy(i: integer);
begin
 ...
end;