Visor LCD

[Tecnic2]

Hola foro,

En mi aplicación utilizo lo siguiente para visualizar informacion en un visor LCD, pero me da error en la funcion "Assign", alguien sabe por qué?

procedure imprimehola;var F: Textfile;begin assign(F,'com1'); rewrite(F); writeln(F,'HOLA VISOR') closefile(F);end;
Gracias por adelantado.

[Tecnic2]

procedure imprimehola
var F: Textfile;
begin
assign(F,'com1');
rewrite(F);
writeln(F,'HOLA VISOR');
closefile(F);
end;

[andres1569]

El Assign para ficheros de Pascal, en Delphi es AssignFile.

[Tecnic2]

Muchas gracias ya está en marcha, aunque os pongo el código final para escribir en el visor LCD:

procedure TfMain.MostraInfoVisor();
var
F: TextFile;
begin
AssignFile(F,LCD);
Rewrite(F);
Write(F,'BIENVENIDOS ');
WriteLn(F,'A MI APLICACION');
CloseFile(F);
end;