Nimm erstmal die benannte Instanz da raus, wenn es sich um TForm33 handelt, dann greift man nicht auf Form33 zu, sondern auf self.
Das hat
blondervolker jetzt bestimmt nicht verstanden, obwohl das ein ganz wichtiger Hinweis ist.
Delphi-Quellcode:
procedure TForm33.FormCreate(Sender: TObject);
begin
// FALSCH !
Form33.Height := (Form33.ClientHeight* y div ScreenHeightDev) +
Form33.Height- Form33.ClientHeight;
// Richtig
self.Height := (self.ClientHeight* y div ScreenHeightDev) +
self.Height- self.ClientHeight;
// Auch richtig
Height := (ClientHeight* y div ScreenHeightDev) +
Height- ClientHeight;