LptPort - Edição 98

:?: Olá a todos
Estou tentando testar o artigo sobre porta paralela publicado na edição 98, mas apresenta um erro na procedure copiada abaixo.

nessa linha LPTPort1.LPTPort := $378; // LPT1 por padrão

a mensagem: Undeclared Identifier: ´LptPort1´.

No uses esta declarado o componente LPTPort e não sei que referencia é Lptport1??

procedure TfrmMain.btnAbrirClick(Sender: TObject);
begin
Case btnAbrir.Tag of
0 :
begin
btnAbrir.Caption := ´Fechar´;
btnAbrir.Tag := 1;
LPTPort1.LPTPort := $378; // LPT1 por padrão -->> é aqui .......
if LPTPort1.Open then
begin
SetPinOutCheckBoxState(True);
cbLPTPort.Enabled := True;
btnEnviar.Enabled := True;
btnLer.Enabled := True;
end;
end;

Será que alguém testou o exemplo apresentado na revista.

Abraços

Neto