Dynamisch erstellte Form per gedrückter Maustaste verschiebe

[Logic]

Also so siehts bei mir aus:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    IdHTTP1: TIdHTTP;
    Panel1: TPanel;
    Button2: TButton;
    Button6: TButton;
    Button3: TButton;
    lb_forms: TListBox;
    CoolTrayIcon1: TCoolTrayIcon;
    PopupMenu1: TPopupMenu;
    delete1: TMenuItem;
    N1: TMenuItem;
    Beenden1: TMenuItem;
    lb_notes: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);


    procedure Button6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure lb_notesDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TMyForm = Class (TForm)
    procedure FormMouseDown(Sender  : TObject;
                            Button  : TMouseButton;
                            Shift   : TShiftState;
                            X,
                            Y       : Integer);
  public
    constructor Create (AOwner : TComponent); override;
  end;

type T_Forms  = record
                  zettel            : TForm;
                  hintergrund       : TImage;
                  subject, nummer   : TLabel;
                  text              : TMemo;
                  close             : TButton;
                end;
var
  Form1: TForm1;
  lines, forms:TstringList;
  count:integer;
  anzahl_notes:integer;
  Zettel: T_Forms;

implementation

uses Unit2;

{$R *.dfm}

procedure TMyForm.FormMouseDown(Sender  : TObject;
                                Button  : TMouseButton;
                                Shift   : TShiftState;
                                X,
                                Y       : Integer);
begin
  ReleaseCapture;
  Perform(wm_syscommand, $f012, 0);
end;

Hab inherited jetzt an den Anfang gemacht, aber der Fehler ändert sich ned