Moin!
Wenn du das TRect erstellt hast, dann einmal damit diese Funktion aufrufen:
Delphi-Quellcode:
Function CorrectRect(Const ARect : TRect): TRect;
Begin
Result.Top := Min(ARect.Top, ARect.Bottom);
Result.Bottom := Max(ARect.Top, ARect.Bottom);
Result.Left := Min(ARect.Left, ARect.Right);
Result.Right := Max(ARect.Left, ARect.Right);
End;
MfG
Muetze1