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

procedure WriteToDatabase(x : integer);
var i : integer;
begin
  try
    case x of
    1 : begin
          with Datenbank.ADOTable1 do
          begin
            Append;
            // Datenbank mit FieldbyName beschriften
            Post;
          end;
        end;
    // Weitere Cases, mit prinzipiell gleichem Inhalt
    end;
    for i := low(HHAction) to high(HHAction) do HHAction[i] := ''; //String Array, welches benutz wird, "leeren"
  except
    showmessage('Exception bei Database');
  end;
end;					

1:
2:
3:
4:
5:

try
[..]
except
  on E: Exception do ShowMessage(E.Message);
end;