1:
2:
3:

Application.CreateForm(TMyForm,MyForm); // generiert das Formular
MyForm.Visible:=False; // bereitet das Umschalten für ShowModal vor
MyForm.ShowModal; // Läßt Die Bearbeitung nur in diesem FOrmular zu					

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

Type
  TAForm = class(TForm)
  public
  Constructor Create(aOwner: TComponent); override;
  Destructor Destroy; override;
  end;

implementation


Constructor TAForm. Create;
begin
  inherited CreateNew(aOwner);
  //--------------------------------
end;


Destructor TAForm. Destroy;
begin
inherited Destroy;
//--------------------------------
end;					

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

procedure TForm1.bCreateNewFormClick(Sender: TObject);
var
   TAF : TAForm;
   MyLabel : TLabel;
begin

  TAF := TAForm.Create(self);
  MyLabel := TLabel.Create(TAF);
  MyLabel.Left := 0;
  MyLabel.Top := 0;
  MyLabel.Width := TAF.Width;
  MyLabel.Height:= 100;
  MyLabel.Caption := 'Hallo!!!';
  MyLabel.Parent := TAF;
  MyLabel.Show;
  TAF.ShowModal;
  TAF.Free;
  //f := TForm.Create(Form1);
  //f.Visible := True;


end;					

1:
2:
3:
4:
5:

type
  TForm1 = class(TForm)
    bCreateNewForm: TButton;
    procedure bCreateNewFormClick(Sender: TObject);
    ...					

1:

MyButton:=TButton.Create(Self);					

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

Procedure MyForm.TempButtonClick(Sender:TObject);
Var ProcNr    : Integer;
    xPos      : Integer;
    TempStr   : String;
Begin
  If Sender is TButton then
  Begin
   TempStr   :=(Sender As TButton).Name; // Name mit Aufrufindex holen
   xPos:=Pos('_',TempStr);               // Trennzeichen suchen
   ProcNr:=StrToInt(Copy(TempStr,xpos+1,Length(TempStr)-xPos)); // Aufrufindex 
   Case ProcNr of 1 : Mach_dies;
                  2 : Mach_das; 
                  ......
                  xx: oder_nix;
    end;
End;