Leer un edit

[JoseFco]

Hola amigos.

Tengo una idea y me hace falta una ayudadita.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Shape1.Brush.Color := clYELLOW;
end;

Me explico: Tengo este boton y el shape. Esto solo es para poder entender el procedimiento y me pueda ser mas facil de entender.
Ahora bien yo quiero que en el procedure del botton1 on Click antes de dar color al shape, primero lea un edit donde estara un numero 4,5,6 etc. Y dependiendo de ese numero entonces determine que color le daria al shape.
Lo que quiero aprender es como el procedure del boton primero lea el edit antes de determinar una funcion.
Por ejemplo si el numero en el edit es "3" o "4" que el color sea "rojo" mientras que si es "5" o "6" el color sea "amarillo" y si el numero es "7,8,9,10,11, o 12" el color sea verde.
La idea con este codigo es aprender como puedo direcionar el procedimiento de un boton a travez de un edit.

Un Saludo.