fulgoreone

começei um curso de programação e estou to com um problema aqui se voces podem me ajudar é assim procedure TForm1.Button1Click(Sender: TObject); begin if edit1.Text<='11' then begin form1.color:=clblue; end; if edit1.Text>'12' then begin form1.color:=clred; end; end; end. dai quando eu digito 2 pra cima fica vermelho e o unico azul é 1; eu queria faze 11 pra baixo azul e 12 pra cima vermelho