Auto-ajustar imagen

[FabianSiza]

Hola mundo!.
tengo un imagen control y en el cargo imagenes y cuando presiono un boton se pintan unos cuadros a la imagen asi.

Código Delphi [-]
  MyRect := TRectF.Create(0, 0, 1000, 300);  //crea un rectangulo pos x, pos y , largo, alto
  MyRect2 := TRectF.Create(1000, 0, 1910, 300);  //crea un rectangulo pos x, pos y , largo, alto
  MyRect3 := TRectF.Create({borde iz}0, 2800, {largo}1000,2300);  //crea un rectangulo pos x, pos y , largo, alto
  MyRect4 := TRectF.Create(1910, 100000, 1000, 2300);  //crea un rectangulo pos x, pos y , largo, alto

ImageControl1.Bitmap.Canvas.BeginScene;

con esto los cuadros quedan arriba y abajo d la imagen importada pero solo funciona con las dimensiones de una imagen y cuando cargo una imagen de distinto tamaño los cuadros quedan perdidos por que no son dinamicos eso debe ser con variables pero como puedo hacer que los cuadros se auto-ajusten a las imagenes?. Gracias.!!