Mir fällt auf, dass du TImage verwendest obwohl hier eigentlich TPicture verwendet werden sollte:
procedure PrintBild(DestRect:TRect; {Image:TImage}Picture:TPicture);
Und später:
Delphi-Quellcode:
procedure PrintIt(Filename:String; BildHoeheMillimeter,BildBreiteMillimeter:Integer);
var Pict:TPicture;
Rect:TRect; cnt,bb,bh:INTEGER;
begin
Pict:=TPicture.Create;
try
Pict.LoadFromFile(Inhalt.Inhalt);
...
PrintBild(Rect,Pict);
finally
Pict.Free;
end;
end;
Das ist jetzt noch nicht die Lösung deines Problems, aber der Code ist so zumindest sauberer.