Würde es nicht reichen, im OnMouseMove (wenn die Form vergrößert wird) einfach das hier zu machen:
Delphi-Quellcode:
Width := 10 * ((Mouse.X-Left) Div 10);
Height:= 10 * ((Mouse.Y-Top) Div 10);
Also, sinngemäß, denn natürlich brauchst Du noch die Fallunterscheidung: Nur Breite ändern, Nur Höhe ändern, Beides etc.