[NumLock]

какая разница TColor или Integer...
если совсем туго:

Код:

var
  c: Integer;
begin
  if IdentToColor(Edit1.Text, c) then Color:=c;
end;