[Amin_Mansouri]

کد:

function ColorToHex(Inp: TColor): String;
    var
    tmp: Longint;
    begin
    tmp:= ColorToRGB(inp);
    Result:= '#' + IntToHex(GetRValue(tmp),2) + IntToHex(GetGValue(tmp),2) + IntToHex(GetBValue(tmp),2);
    end;