[lmikle]

Код:

procedure TForm1.Proc(ANum : Integer);
begin
  case ANum Of
    1 : Label1.color := $00FF0000;
    2 : Label1.color := $0000FF00;
    3 : Label1.color := $000000FF;
  end;
end;

procedure TForm1.Button1Click(Sender : TObject);
begin
  Label1.Caption := 'Text';
  Proc(1);
end;


procedure TForm1.Button1Click(Sender : TObject);
begin
  Label1.Caption := 'Text';
  Proc(2);
end;