CreateForm - Form "von außen" schließen

[Yheeky]

Hi!

Also ich habe eine Form, die ich mehrere Male erstellen muss. Das mache ich so:

Code:

Application.CreateForm(TfrmShortMessage, CreatedForm);
CreatedForm.Name := 'Seite' + IntToStr(NumberOfForms);
CreatedForm.FormStyle := fsStayOnTop;
//CreatedForm.Position := poScreenCenter;
CreatedForm.WindowState := wsNormal;

CreatedForm.Show;
Inc(NumberOfForms);

Jetzt will ich eine Form "von außen" wieder schließen lassen. Dies habe ich erfolglos versucht. Beide der folgenden Varianten haben nicht funktioniert:

1.)

Code:

for I := 1 to NumberOfForms-1 do
TForm(FindComponent('Seite' + IntToStr(I))).Close;

2.)

Code:

for I := 1 to NumberOfForms-1 do
TfrmShortMessage(FindComponent('Seite' + IntToStr(I))).Close;

Jedes Mal bekomme ich eine Zugriffsverletzung. Ist bestimmt ne kleine Sache, vielleicht kann mir ja jemand helfen.

Gruß Yheeky