Fórum Impressão direta na impressora #326342

bom dia galera.. e o seguinte estou desenvolvendo um sistema q faz pagamento somente de horas extras
e to tendo um pequena dificudade em colocar ele para imprimir diretamente na impressora..
procedure TForm1.Button1Click(Sender: TObject);
VAR
F: TextFile;
AssignFile(F,´LPT1´);
Rewrite(F);
Writeln(F,#2715+´------------------------------------------------------´);
Writeln(F,´Empresa´);
Writeln(F,´Endereco: ´);
Writeln(F,´C.P.F/C.N.P.J:´,´+´Maskedit1Competencia´);
writeln(F,´TableFunc+Codigo+funcioanrio´=´,´+TableCBOCargo
Writeln(F,´------------------------------------------------------´);
Writeln(F,´TableConfig+cod´,´+TableHoras 50@´,´+Qtd50¬´,´+ValorHoras´);
Writeln(F,´TableConfig+cod´,´+TableHoras 80@´,´+Qtd80¬´,´+ValorHoras´);
Writeln(F,´TableConfig+cod´,´+TableHoras 100@´,´+Qtd100¬´,´+ValorHoras´);
Writeln(F,´TableConfig+cod´,´+TableHoras 150@´,´+Qtd150¬´,´+ValorHoras´);
Writeln(F,´
Writeln(F,´
Writeln(F,´
Writeln(F,´
Writeln(F,´
Writeln(F,´
Writeln(F,´
Writeln(F,´
Writeln(F,´
Writeln(F,´TableSetup+mensagemHoletire´);
Writeln(F,´
Writeln(F,´
Writeln(F,´´);
Writeln(F,´´);
Writeln(F,´´);
Writeln(F,´´);
Writeln(F,´´);
Writeln(F,´´);
Writeln(F,´.´);
CloseFile(F);

este e meu codigo eu estou testando como o helerite tem total de vencimentos e total de descontos salario base, inss a base de calculos o fgts e por ultimo o valor liquido a receber.. eu não tive progresso neles por isso tentei somente ate ai algum poderria mim dar uma ajudinha.. grato vlw