Ich glaub ich weiss es
Delphi-Quellcode:
if Shift = [ssleft] then begin
memo1.Top := y + memo1.Width;
memo1.Left := x + memo1.Width;
end;
ins onmousemove ereigniss von dem memo reinschreiben dürfte aber derb flackern versuch es mit
Form1.DoubleBuffered := true;
pacman