Je präziser eine Frage formuliert wird um so genauer können die Antworten sein.
Du könntest eine Variable WorkShape definieren und bei SpeedButton1.OnClick
WorkShape := Shape1
zuweisen.
Entsprechend bei SpeedButton2.
Deine Änderungen beziehen sich dann immer auf WorkShape.