이 예제는 타이틀바가 없는 폼이다..
그림의 파란 타이틀바는 패널로 만든것이고, 최소화,종료 버튼은
스피트버튼으로 만들었다..
파란 부분을 클릭하고 마우스를 이동하면, 폼이 옴겨진다..

폼 이동 팁은 http://cbuilder.zdns.net/ 여기서 가져왔지롱~
헤헤~

unit Unit1; 

interface 

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

type 
  TForm1 = class(TForm) 
    Panel1: TPanel; 
    SpeedButton1: TSpeedButton; 
    SpeedButton2: TSpeedButton; 
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
    procedure SpeedButton1Click(Sender: TObject); 
    procedure SpeedButton2Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
  //----------------------------------------- 
  ReleaseCapture(); 
  SendMessage(Handle,WM_SYSCOMMAND,$F012,0 ); 
  //----------------------------------------- 
end; 

procedure TForm1.SpeedButton1Click(Sender: TObject); 
begin 
  Close; 
end; 

procedure TForm1.SpeedButton2Click(Sender: TObject); 
begin 
  Application.Minimize; 
end; 

end.