1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

procedure TForm1.FormActivate(Sender: TObject);
const
     //Bildschirmauflösung (beim Programmieren)
     x:integer=800;
     y:integer=600;
var
   bildbreite,bildhoehe:integer;
begin
     //den Variablen die Bildschirmhoehe und -breite zuweisen
     bildbreite:=screen.width;
     bildhoehe:=screen.height;

     //Wenn eine andere Bildschirmauflösung verwendet wird
     if (bildbreite<>x) and (bildhoehe<>y) then
     begin

    //Die Größe aller Komponenten auf die neue Bildschirmauflösung umberechnen
          Komponente1.Width:=round(Komponente1.Width*(Bildbreite / x));
          Komponente1.Height:=round(Komponente1.Height*(Bildhoehe / y));

    //Die Größe des Formulars umberechnen
          Form1.Width:=round(Form1.Width*(Bildbreite / x));
          Form1.Height:=round((Form1.Height-24)*(Bildhoehe / y))+24;

    //Position der Komponenten umberechnen
          Komponente1.Left:=round(Komponente1.Left*(Bildbreite / x));
          Komponente1.Top:=round(Komponente1.Top*(Bildhoehe / y));
     end;

     //Formular in die Mitte des Bildschirms setzen
     Form1.Left:=Screen.Width div 2 - Form1.Width div 2;
     Form1.Top:=Screen.Height div 2 - Form1.Height div 2;
end;