diff --git a/Tests/PS/FormTest.mufa b/Tests/PS/FormTest.mufa
index cf4a8c1..f5031a4 100644
--- a/Tests/PS/FormTest.mufa
+++ b/Tests/PS/FormTest.mufa
@@ -13,10 +13,10 @@ var
 begin;
   TempVar := False;
   Result := false;
-  MyForm := CreateForm;
+  MyForm := TForm.Create(nil);
   MyForm.Width := 250;
   MyForm.Height := 250;
-  AButton := CreateButton(MyForm);
+  AButton := TButton.Create(MyForm);
   AButton.Parent := MyForm;
   Abutton.SetBounds(100,100,100,50);
   AButton.OnClick := @OnClick;
diff --git a/Units/MMLAddon/PSInc/Wrappers/other.inc b/Units/MMLAddon/PSInc/Wrappers/other.inc
index 2b226d7..2cae9ee 100644
--- a/Units/MMLAddon/PSInc/Wrappers/other.inc
+++ b/Units/MMLAddon/PSInc/Wrappers/other.inc
@@ -54,15 +54,6 @@ begin;
   bmp.Free;
 end;
 
-function CreateForm : TForm;
-begin;
-  result := TForm.Create(nil);
-end;
-function CreateButton(Owner : TComponent) : TButton;
-begin
-  Result := TButton.Create(Owner);
-end;
-
 function MinE(a, b: Extended): Extended;
 begin;
   result := min(a,b);
diff --git a/Units/MMLAddon/PSInc/psexportedmethods.inc b/Units/MMLAddon/PSInc/psexportedmethods.inc
index d1dff2f..64159c5 100644
--- a/Units/MMLAddon/PSInc/psexportedmethods.inc
+++ b/Units/MMLAddon/PSInc/psexportedmethods.inc
@@ -84,8 +84,6 @@ AddFunction(@psWait, 'procedure Sleep(t: integer);');
 AddFunction(@GetTickCount, 'function GetSystemTime: LongWord;');
 AddFunction(@GetTickCount, 'function GetTickCount: LongWord;');
 AddFunction(@GetTimeRunning,'function GetTimeRunning: LongWord;');
-AddFunction(@CreateForm,'function CreateForm : TForm;');
-AddFunction(@CreateButton,'function CreateButton(Owner : TComponent) : TButton');
 AddFunction(@ConvertTime,'procedure ConvertTime(Time : integer; var h,m,s : integer);');
 AddFunction(@HakunaMatata,'procedure HakunaMatata;');
 AddFunction(@TerminateScript,'procedure TerminateScript;');