Sehe an dem Quellcode nicht unbedingt dein Problem (falsche MethodenNamen?) kann mir jedoch vorstellen was du meinst.
Ein auslagern der Prozedure in eine 3.
Unit könnte dir helfen die du in beiden anderen Units einusen kannst.
Schreib sowas lieber so:
Delphi-Quellcode:
// if bild = false then
if not bild then
// if bild = true then
if bild then
Ein boolscher Wert muss nicht nochmal mit einen solchem verglichen werden, er ist quasi selber einer
