Hola
Bueno estaba haciendo algo parecido a Egostar pero me puse a esperimentar y me tope con un asunto en cuanto al TColor.
Mis disculpas a JoseFco por meterme en su pregunta.
Como pasar un string a TColor?.
Código Delphi
[-]
const
Col : array[1..4] of string = ('clRed','clYellow','clGreen','clBlue');
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
for i := 1 to 4 do
if edit1.Text = IntToStr(i) then
edit2.Text:= (''+Col[i]);
Shape1.Brush.Color := (''+Col[i]);
end;
Lo trate de hacer directamente con un array de TColor, pero estoy en las mismas.
Me explicais?., tal vez a JoseFco le interesa tambien
Saludos