Creo que es mas o menos esto:
if (PrinterDialog1->Execute()) {
TPrinter *Prntr = Printer();
Prntr->BeginDoc();
Prntr->Canvas->TextOutA(PosicionX,PosicionY,Memo1->Lines);
Prntr->EndDoc();
}
donde PosicionX y PosicionY son las coordenadas desde donde empieza a imprimir. No estoy seguro del codigo, pero esa es la idea segun creo.