Hallo Alex,
du speicherst in deiner Tabelle FarbCode und FarbName redundant. Als FarbName würde ich 'Schwarz' und nicht 'clBlack' speichern, da clBlack schon durch FarbCode festgelegt ist:
Delphi-Quellcode:
uses
Graphics; // ColorToString()
var
sFarbe, sColor: string;
c: TColor;
begin
c := TColor(Dm1.AdoQuery1.FieldByName('FarbCode').AsInteger);
sFarbe := Dm1.AdoQuery1.FieldByName('FarbName').AsString;
sColor := ColorToString(c);
end;
Grüße vom marabu