unit ColorUni;

interface
uses Graphics;

function actualizacolor(uncolor:string):TColor;
implementation

function actualizacolor(uncolor:string):TColor;
begin
if uncolor='N' then
actualizacolor:=clMenu
else
actualizacolor:=StringToColor(uncolor);


end;




end.