GUI per DLL

[VT-DA]

Hi,

Danke für eure Hilfe. Doch leider komm ich schon wieder nicht weiter.
Ich versuche einen procedure auszuführen doch der gibt mir wie fast immer nur Fehler aus.
Hier nochmal der derzeitige Code:

Delphi-Quellcode:

library form;

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls;

var
  Form1: TForm;
  Button1: TButton;
  Memo1: TMemo;

procedure DLLFormShow; stdcall;
begin
  Form1 := TForm.Create(nil);
  Memo1 := TMemo.Create(Form1);
  Memo1.Parent := Form1;
  Button1 := TButton.Create(Form1);
  Button1.Parent := Form1;
  Button1.Width := 100;
  Button1.Height := 100;
  Form1.Show;
  Memo1.Show;
  Button1.Show;

end;

procedure Form1.Button1Click(Sender: TObject); stdcall;
begin
  DLLFormFree;
end;

procedure DLLFormFree; stdcall;
begin
  Memo1.Free;
  Button1.Free;
  Form.1Free;
end;

exports
  DLLFormShow,
  DLLFormFree;
{$R *.res}


begin
end.

Mfg