Bedenke, dass wenn du auf Maus.Left>ClientWidth prüfst, die Bedingung erst erfüllt ist, wenn die Maus bereits GANZ aus dem Bild raus ist. Es müsste also heißen:
Delphi-Quellcode:
If Maus.Left+Maus.Width > ClientWidth then
Maus.Left := ClientWidth - Maus.Width;