procedure ButtonSaveData_OnClick(Sender: Integer); var aTableArray: Variant; aRecordChangeCount: Integer; begin; aTableArray := TableUser, TableGroup; //Das Array mit den Tabellen zusammenstellen aRecordChangeCount := writeData(aTableArray); //Die Änderungen zum Server schicken //Ausgabe wieviele Datensätze von Änderungen betroffen waren message_dlg('Es wurden << '+inttostr(aRecordChangeCount)+' >> Datensätze in der Datenbank geändert!'); end;