Visor LCD
 

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.

Aqui está mas estructurado...
 

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

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

Con AssignFile funcionó.
 

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;