Form wird nicht korrekt positioniert

[Sir Rufo]

Generell zum Code sei noch folgendes gesagt:

Delphi-Quellcode:

var
 aForm: TForm;
begin
 aForm := TForm.Create(nil);

 aForm.Left := Form1.Left;
 aForm.Top := Form1.Top;
 aForm.Width := Form1.Width;
 aForm.Height := Form1.Height;
 aForm.Color := clBlack;

 aForm.AlphaBlend := True;
 aForm.AlphaBlendValue := 185;

 aForm.ShowModal;

 // ein bisschen Code

 aForm.Hide;
 aForm.Free;

Die Verwendung von der globalen Variablen Form1 ist schon mal ganz übel.

Wenn man die MainForm der Anwendung damit meint, dann sagt man das auch mit TApplication.MainForm.
Wenn es irgendeine Form sein soll, dann übergibt man diese als Parameter.

Nach TForm.ShowModal wird der Code an dieser Stelle so lange unterbrochen, bis diese Form geschlossen wird ... das scheint nicht beabsichtigt zu sein ...

aForm.Hide direkt vor aForm.Free ist nutzlos und kann ebenso entfallen.

Instanzen erzeugen ohne Ressource-Schutzblock ist auch sträfliches Unterlassen.