Nur noch ein kleiner Tipp:
Übergib den Proceduren DrawRaster und DrawFadenkreuz einen Parameter vom Typ
TCanvas
.
Delphi-Quellcode:
procedure TDigensForm.DrawRaster(canvas:TCanvas);
begin
...
Das erhöht die Flexibilität deiner Software; vielleicht möchtest du die Ausgabe ja mal auf ein Bitmap oder den Drucker-Canvas schicken.