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:

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  i          : Integer;
  Z          : Longint;
  mLaenge    : Integer;
  mStr       : String;
  mMerkDatum : array[1..250] of String[4];
  mFielNameP : array[1..250] of String[25];
  mFielName  : array[1..250] of String[25];
begin
  Z:=0;
  for i:=1 to 250 do
  begin
    mFielNameP[i]:='';
    mFielName[i]:='';
    mMerkDatum[i]:='';
  end;
  for i:=1 to FldList.Items.Count-1 do
  begin   // main output loop //
    mStr:=Copy(FldList.Items[i],1,25);
    mMerkDatum[i]:=Copy(FldList.Items[i],26,4);
    mLaenge:=Pos(' ', mStr);
    Delete(mStr,mLaenge,25);
    if not ('PRIMARY'=Copy(mStr,1,7)) then
    begin
      mFielNameP[i]:=mStr;
      while Pos('-', mStr) > 0 do
      begin
        mStr[Pos('-', mStr)]:='_';
      end;
      mFielName[i]:=mStr;
    end else
    begin
      Break;
    end;
  end;   // Main output loop //
  WorkTable.Active:=TRUE;
  myTabelle.Open;
  WorkTable.First;
  Gauge.MaxValue:=WorkTable.RecordCount;
  Gauge.Progress:=0;
  repeat
    Gauge.Progress:=Gauge.Progress+1;
    try
      myTabelle.Insert;
      for i:=1 to FldList.Items.Count-1 do
      begin
        if mFielName[i]>'' then
        begin
          if mMerkDatum[i]='DATE' then
          begin
            myTabelle.FieldbyName(mFielName[i]).Value:=amiDatum(WorkTable.FieldbyName(mFielNameP[i]).Value);
          end else
          begin
            myTabelle.FieldbyName(mFielName[i]).Value:=WorkTable.FieldbyName(mFielNameP[i]).Value;
          end;
        end;
      end;
      inc(Z);
      Zaehler.Caption:=IntToStr(Z);
    finally
      myTabelle.Post;
    end;
    myTabelle.Cancel;
    WorkTable.Next;
  until WorkTable.Eof;
  myTabelle.Close;
  WorkTable.Active:=FALSE;
  Gauge.Progress:=0;
end;					

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

procedure TfrmMain.Button1Click(Sender: TObject);
var
  a, b : integer;
begin
  try
    a := 1;
    b := 0;
  finally
    b := a div b;
  end;
  ShowMessage('Hier sollte es eigentlich weiter gehen...');
end;					

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

    with mRAM do
    begin
      dwLength := SizeOf(mRAM);
      GlobalMemoryStatus(mRAM);
      ProgressBar.Max := dwTotalPhys;
      ProgressBar.Position := dwAvailPhys;
      ProgressBar.Position := dwTotalPhys - dwAvailPhys;
    end;