Du musst bei CopyRect zwei verschiedene Rects als Argument verwenden. Mit zwei gleichen Rects wie bei dir lässt sich nur ein Bereich
oben links in
unveränderter Position und Größe kopieren.
Benutze also zwei verschiedene Parameter, spiele mit ihren Werten herum und prüfe, wie sich das Ergebnis ändert. Ebenfalls gut: Dokumentation lesen:
TCanvas.CopyRect