Imprimir contendido de un RichEdit

[ecfisa]

Agustin, tenés que incluir la unidad Printers y básicamente la impresión del RichEdit sería:

Código Delphi [-]
uses Printers;

procedure TForm1.Imprimir(RichEdit: TRichEdit);
var
  i: Integer;
  Prn: TextFile;
begin
  AssignPrn(Prn);
  Rewrite(Prn);
  for i:= 0 to RichEdit.Lines.Count -1 do
    Write(Prn,RichEdit.Lines[i]);
  CloseFile(Prn)
end;

Claro que si deseas hacer un procedimiento para imprimir deberías crear una variable para que almacene el RichEdit, ya sea declarandola global o bién pasándola como parámetro.
Ejemplo:

Código Delphi [-]
  
   RichEdit:= TRichEdit.Create(nil);

Otra cosa, no veo en tu código que liberes el recurso RichEdit, pero quizá lo hagas en otra parte...

Las etiquetas se ponen al inicio y al final del código.
Ejemplo:

[delphi]
procedure TForm.loquesea(Sender: TObject);
begin
....
end;
[/delphi]


Saludos.