1:
2:
3:

  Application.CreateForm(TFinteraktiv, Finteraktiv);
  finteraktiv.showmodal;
  finteraktiv.release;                    

1:

procedure aufrufen(form:tform);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure rufen(tform:tformclass; form:tform);
begin
    Application.CreateForm(tForm, Form);
    form.showmodal;
    form.release;
end;
...
  case formularnr of
   1 : rufen(TFinteraktiv, Finteraktiv);
   2 : rufen(TFanalysis, Fanalysis);
...
  end;                    

1:
2:
3:

procedure rufen(var xform:tformclass; var form:tform);
procedure rufen(var xform:tformclass; form:tform);
procedure rufen(xform:tformclass; var form:tform);                    

1:

rufen(FormClass: TFormClass; var Reference)                    

1:

Application.CreateForm(Formclass, reference);                    

1:
2:

reference.showmodal;
reference.release;                    

1:
2:
3:
4:
5:
6:

procedure rufen(FormClass: TFormClass; var Reference);
begin
    Application.CreateForm(Formclass, reference);
    tform(reference).showmodal;
    tform(reference).release;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure ShowForm(const AFormClass: TFormClass);
var
  MyForm: TForm;
begin
  MyForm := AFormClass.Create(nil);
  try
    MyForm.ShowModal;
  finally
    MyForm.Free;
  end;
end;

// Aufruf:
  ShowForm(TForm266);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure ShowForm(const AFormClass: String);
var
  MyForm: TForm;
begin
  MyForm := TFormClass(FindClass(AFormClass)).Create(nil);
  try
    MyForm.ShowModal;
  finally
    MyForm.Free;
  end;
end;

procedure TForm265.FormCreate(Sender: TObject);
begin
  RegisterClass(TForm266); // Da die Klasse sonst nirgends benutzt wird, muss sie registriert werden...
end;

procedure TForm265.Button1Click(Sender: TObject);
begin
  ShowForm('TForm266'); // ...und kann nun über den Namen als String angesprochen werden
end;                    

1:
2:
3:

  MyForm := AFormClass.Create(nil);
bzw.
  MyForm := TFormClass(FindClass(AFormClass)).Create(nil);                    

1:
2:
3:
4:
5:
6:

With aformclass.create(Nil) Do
 Try
 Showmodal;
  Finally
  Free;
  End;                    

1:
2:
3:

    finteraktiv.width:=formx;
    finteraktiv.height:=formy;
    finteraktiv.caption:=aktuellname2;                    

1:
2:
3:

    width:=formx;
    height:=formy;
    caption:=aktuellname2;                    

1:
2:
3:
4:
5:
6:

With aformclass.create(Nil) Do
 Try
 Showmodal;
  Finally
  Free;
  End;                    

1:
2:
3:
4:
5:
6:
7:

procedure TBaseVirtualTree.StaticBackground(Source: TBitmap; Target: TCanvas; Offset: TPoint; R: TRect);
begin
...
      with DrawRect do
        MaskBlt(Target.Handle, Left - Offset.X, Top - Offset.Y, (Right - Offset.X) - (Left - Offset.X),
          (Bottom - Offset.Y) - (Top - Offset.Y), Source.Canvas.Handle, Left - PicRect.Left, DrawRect.Top - PicRect.Top,
          Source.MaskHandle, Left - PicRect.Left, Top - PicRect.Top, MakeROP4(DST, SRCCOPY));                    

1:
2:
3:
4:

procedure TMeinFormular.Button1Click(Sender: TObject)
begin
  showmessage(IntToStr(Width));
end;                    

1:
2:
3:
4:

procedure TMeinFormular.ResetHeight()
begin
  MeinFormular.Height = 700;
end;                    

1:
2:
3:
4:
5:
6:
7:

procedure TMainForm.ButtonClick(Sender: TObject)
var
  formular: TMeinFormular;
begin
  formular := TMeinFormular.Create();
  formular.ResetHeight();
end;