procedure panelColor_OnClick(Sender: Integer); var aColor: integer; begin; //Gibt es einen aktuellen Datensatz if TableLookup.recordcount > 0 then begin //Holen wir uns die aktuelle Farbe in eine Variable aColor := color_dlg(TableLookup.fieldByName('LU_COLOR').asInteger); //Schreiben wir den Wert der Variable in die entsprechende Tabelle TableLookup.Edit; //Datenmenge in Editier Modus versetzen //Die Farbe in das entsprechende Feld schreiben TableLookup.fieldByName('LU_COLOR').asInteger := aColor; panelColor.color := aColor; end; end;