Fórum Dúvida com Impressão utilizando ´WriteLn´ #244528

Possua uma tabela paradox com 4 registros, em cada registro é informando a hora do evento, o palestrante e o curso, neste caso eu preciso imprimir direto para a impressora matricial de forma rápida e o relatório tem que ser impresso ordenado pelo tipo de curso....exemplo:

Contabilidade
18:00 Prof Misael
20:00 Prof Otavio

Gerencial
19:00 Prof Otto

Abordagem
20:00 Prof Nildo

O problema é que estou o seguinte codigo .....

if Table1curso.asstring = ´Contabilidade´ then
begin
write(F,Format(´¬19s´,[´Contabilidade´]));
writeln(f);
write(F, Format(´¬19s´,[Hora]));
write(F, Format(´¬60s´,´Prof]));
Table1.Next;
End;

if Table1curso.asstring = ´Gerencial´ then
begin
write(F,Format(´¬19s´,[´Gerencial´]));
writeln(f);
write(F, Format(´¬19s´,[Hora]));
write(F, Format(´¬60s´,[Prof]));
Table1.Next;
End;

Ao imprimir, ele imprime da seguinte maneira: o cabeçalho sai
correto pois estou informando ela manualmente no código, porém
ele imprimi somente o 1 registro para todos os cursos, como no exemplo abaixo:

Contabilidade
18:00 Prof Misael

Gerencial
18:00 Prof Misael

Se fosse para fazer no quickreport tranquilo... porém naum tenho muito experiência com impressâo direta....por favor se tiver algum exemplo para me passar de como solucionar o caso eu agradeço muito[/code]