procedure TForm1.ModifyData(table, feld, ID: string; IDNr, Inhalt: variant);
begin
    with TADOQuery.Create(Self) do
    try
      Connection := ADOConnection1;
      SQL.Text := 'UPDATE '+table+' SET '+feld+' = :Body WHERE '+ID+' = :ArtistID';
      Prepared:=true; // Vorbereiten, dann ist die Verarbeitung u.U. schneller
      Parameters.ParamByName( 'ArtistID' ).Value := IDNr;
      Parameters.ParamByName( 'Body' ).Value := Inhalt;
      ExecSQL;
    finally
      Free;
    end;
end;

procedure TForm1.AddData(table, feld: string; Inhalt: variant);
var
  tmp: string;
begin
    with TADOQuery.Create(Self) do
    try
      Connection := ADOConnection1;
      tmp:='INSERT INTO '+table+' ('+feld+')'+' VALUES ('+quotedstr(Inhalt)+')';
      SQL.Text := tmp;
      Prepared:=true;
      ExecSQL;
    finally
      Free;
    end;
end;