with ... do begin Problem

[Schlingel]

HELP!!!!!!!!!!!!!!!!!!

Ausgangslage:

procedure a

....
with Image, Canvas do begin // TIMAGE-Komponente
....
end;

procedure b
....
with PdfBox, Canvas do begin // TPDFBOX-Komponente von Synactis (Print direkt im Adobe-PDF-Format)
....
end;

möchte a + b zusammenlegen , weil procedure a+b identisch bis auf o.a.
with - anweisungen

leider ist PdfBox, Canvas vom Typ = TpdfCanvas und Image, Canvas = TCanvas

Anmerkung: Ich verzweifle schön langsam an diesem Problem weil zwar die getrennten proceduren (a/b) einwandfrei funktionieren, nur ist die Wartung ziemlich mühsam da ja Änderungen 'immer' in beiden durchzuführen sind... (ca 70 Anweisungen Rectangel, ellipse, textout etc..) daher ist meine überlegung mittels einer variable zwischen den with pdfbox,canvas und image, canvas umzuschalten... nur leider!!!!
----keine Idee wie ich das lösen sollte...