Sieht doch gut aus eigentlich nur
Delphi-Quellcode:
r2:= rect(x_min,y_min,x_max+1,y_max+1);
//bild3.PixelFormat := bild.PixelFormat;
bild3.SetSize(x_max-x_min+1, y_max-y_min+1);
// bild3.Width:=x_max-x_min+1;
// bild3.height:=y_max-y_min+1;
bei r2 jeweils +1 (frag mich nicht warum) und nur der Form halber bei g32 SetSize() statt Width und Height verwenden. Außerdem fehlt immer noch try finally.