procedure TForm1.Button1Click(Sender: TObject);
var
  Impr : TextFile;
  i : Integer;

begin
// abre a porta da impressora para gravação
  AssignFile(Impr, '/dev/lp0');
{ Lembrem-se, em alguns sistemas operacionais as operações de acesso ao dispositivo /dev/lp* são rw-rw, permitindo leitura e gravação ao grupo e ao proprietário e negando acesso ao restante. Para disponibilizar esse acesso à todos, basta dar o seguinte comando como root:

# chmod o+w /dev/lp*
}


  Rewrite(Impr);

// configura tipo de letra
  Write(Impr,#27'(s1p52T');

// impressão normal
  Write(Impr,#27'&a5r5C'+#27'(s0b0S'+'VIVA O LINUX');

// impressão negrito
  Write(Impr,#27'&a7r5C'+#27'(s3b0S'+'VIVA O LINUX');

// impressão itálico
  Write(Impr,#27'&a6r5C'+#27'(s0b0S'+'VIVA O LINUX');

// impressão negrito itálico
  Write(Impr,#27'&a8r5C'+#27'(s3b1S'+'VIVA O LINUX');

// muda tamanho da fonte
  for i := 1 to 7 do
    Write(Impr,#27'&a'+IntToStr(8+i)+'r5C'+#27'(s0b0s'+
       IntToStr(i*2)+'V'+'VIVA O LINUX');

// reinicializa a impressora
  Write(Impr,#27'E');

// fecha o arquivo de impressão
  CloseFile(Impr);
end;