Zitat:
image4.left := ScreenToClient(p).Y ;
image4.top := ScreenToClient(p).X ;
p := Mouse.CursorPos ;
Okay du bist der Bundeskanzler.
Erst sagst du dem Protokollanten, den du immer bei dir hast, er soll die Werte X und Y aufschreiben.
Dann schreibt der Protokollanten etwas auf. Danach sagst du dem Protokollanten, was X und Y ist.
Aber er hat schon geschrieben...
Du müsstest das ganze noch in die Richtige Reihenfolge bringen.