Negieren stimmt schon, allerdings nur auf einem Umweg, da TColor 32Bit lang ist, die eigentliche Farbe jedoch nur 24Bit.
Delphi-Quellcode:
function InvertTColor(Color: TColor): TColor;
begin
Result := ((not Color) and $00FFFFFF) or (Color and $FF000000); // Damit nur die Farbe invertiert wird
end;