Leer un edit

[[egostar]]

Hola

Suponiendo que ya validaste que no hay errores de conversion en el edit1.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  case strtoint(edit1.text) of 
     3,4: Shape1.Brush.Color := clRed;
     5,6: Shape1.Brush.Color := clYellow;
     7,8,9,10,11,12: Shape1.Brush.Color := clGreen;
     else Shape1.Brush.Color := clWhite; //En caso de que sea otro numero
  end;
end;

Salud OS