Fehler: IF: Kein Teil eienr Menge (Bedingung)

[SvenLittkowski]

Ein letztes Problem in Sachen Farbe und Farbverarbeitung vorerst:

Code:

var
 TheColor1, TheColor2: String;
 TColor1, TColor2:      TColor;

(1723) TheColor1:=ColorToString(Label1.Font.Color);
(1724) TheColor2:=ColorToString(Label1.Color);
(1725) IdentToColor(TheColor1,TColor1);
(1726) IdentToColor(TheColor2,TColor2);

gibt mir diesen Fehler:

Zitat von Delphi 7:

[Error] Box1.pas(1725): Types of actual and formal var parameters must be identical
[Error] Box1.pas(1726): Types of actual and formal var parameters must be identical

Hmmm... Woran liegt's?