Заголовок у окна

[Михаил Юрьевич]

Подскажите как убрать у окна границы и заголовок,
но что бы окно можно было перемещать мышью.
Делал BorderStyle - bsNone,но мышью перемещать
окно не получается

[SunKnight]

procedure TMainWindow.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND, $F012, x);
end;