Flytning af forms

Jeg har i en tidligere sag http://www.eksperten.dk/spm/657116
spurgt til hvordan man kan gøre sådan at man ikke har mulighed for at flytte rundt på formen. Stone har vist mig en løsning i linket som vist og det ser også ud til at virke. Det eksempel der er med fungere også, men af en eller anden grund virker det ikke hvis du putter en komponent på formen så får man den fejl som jeg har beskrevet linket.

Er der nogen der kan sige mig hvad dælen der sker?

Det her er min kode, hvor jeg får en fejl:

unit CreateUnit;

interface

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

type
  TCreateForm = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel2: TPanel;
    Label19: TLabel;
    Label1: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Bevel1: TBevel;
    Edit1: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    RadioGroup1: TRadioGroup;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
  public
    { Public declarations }
  end;

var
  CreateForm: TCreateForm;

implementation

{$R *.dfm}

procedure TCreateForm.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;

  with Message do
  begin
    if Result = HTCAPTION then
      Result := HTNOWHERE;  <----- Her er fejlen.
  end;
end;

procedure TCreateForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TCreateForm.FormDestroy(Sender: TObject);
begin
  CreateForm := nil;
end;

end.