warum werden bei der source nicht alle controls angepasst?

[kiar]

mit folgendem code versuche ich auf verschiedene auflösungen zu reagieren

Delphi-Quellcode:

 scaled := true;
   x:= Screen.width;
   y:= Screen.Height;
   if(y <> ScreenHeightDev) or (x <> ScreenwidthDev) then
     begin
        frmMitarbeiter.Height := (frmMitarbeiter.ClientHeight* y div ScreenHeightDev) +
                                frmMitarbeiter.Height- frmMitarbeiter.ClientHeight;
        frmMitarbeiter.Width  := (frmMitarbeiter.ClientWidth * x div ScreenWidthDev)  +
                                frmMitarbeiter.Height - frmMitarbeiter.ClientHeight;
        scaleBy(x,Screenwidthdev);
     end;

es sind 9 Tedits , 7 werden angepasst und 2 nicht

raik