как менять цвет компонента по условию

[kenta]

как менять цвет компонента по условию

procedure TForm1.Button1Click(Sender: TObject);
var
  n:integer;
begin
  case n of
   1: Edit[1].color:=clRed;
   2: Edit[2].color:=clGreen;
  end;
end;

[mihali4]

N нужно задать глобально, а не внутри процедуры.
И где-то присваивать ему значение...