Ein Problem habe ich noch!

[andianon]

OK, auch wenn du es eigentlich nicht verdient hast:

Delphi-Quellcode:

imRechteck : Boolean;
...

imRechteck := ((prufsp > spalt) and 
               (prufsp < (spalt + breit)) and
               (prufze > zeil) and
               (prufze < (zeil + lang)));