Atribuir novo valor para Constante

Olá a todos.
Estou usando recursos da porta paralela e tudo funciona bem. Agora preciso permitir que seja alterada a porta que esta sendo utiliza, tipo uso a LPT1 (378) mas precisamos mudar as configuraçoes para usar a LPT2 (278), tudo em runtime.
Coloquei um ComboBox para permitir essa mudança, mas quando tento alterar a configuração da contatante BASE, DADOS, etc...., o sistema retorna um erro:

[Error] Unit1.pas(48): ´:=´ expected but ´=´ found

Gostaria de saber também que tipo de dado é a constante BASE, DADOS, STATUS, ect...

Abaixo trecho do programa.
Abraços
Neto


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Bass, ExtCtrls;

{ Comentarios sobre porta paralela
Porta Base/Dados Status Controle
LPT1 0 x 0378 0 x 0379 0 x 037a
LPT2 0 x 0278 0 x 0279 0 x 027a
LPT3 0 x 03bc 0 x 03bd 0 x 03be
}

Const
Base = $378; //Endereço base da porta LPT;
Dados = Base+0; //Endereço para escrita dos dados;
Status = Base+1; //Endereço para leitura dos dados;
Controle = Base+2; //Endereço para escrita;
DadosEPP = Base+4; //ou Base+0, lê e escreve no modo EPP.


type
TForm1 = class(TForm)
ComboBoxPorta: TComboBox;

procedure ComboxPortaChange(Sender: TObject);

private
{ Private declarations }

public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

// aqui tento trocar de uma porta para outra
procedure TForm1.ComboBox1Change(Sender: TObject);
begin

If ComboBox1.ItemIndex = 0 then // lpt1
begin
Base = $378; //Endereço base da porta LPT;
Dados = Base+0; //Endereço para escrita dos dados;
Status = Base+1; //Endereço para leitura dos dados;
Controle = Base+2; //Endereço para escrita;
DadosEPP = Base+4; //ou Base+0, lê e escreve no modo EPP.
end;


If ComboBox1.ItemIndex = 1 then // lpt2
begin
Base = $278; //Endereço base da porta LPT;
Dados = Base+0; //Endereço para escrita dos dados;
Status = Base+1; //Endereço para leitura dos dados;
Controle = Base+2; //Endereço para escrita;
DadosEPP = Base+4; //ou Base+0, lê e escreve no modo EPP.
end;

end;
end.