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; end;
end;
Salud OS