В свойстве форму стоит borderStyle - bsNone,
мне нужно сделать так чтоб только Timage  выполнял функцию заголовка, тоесть перемещал форму при обращении к нему мышки.

Но это свойство должо быть только у Timag, а не увсей формы.

в событии onMouseDown для компонента за который будем такскать
if ssLeft in Shift then
 begin
   ReleaseCapture;
   perform(WM_NCLBUTTONDOWN, HTCAPTION, 0);
   {
     или
     perform(WM_SYSCOMMAND, $F012, 0);
   }
 end;

WM_NCLBUTTONDOWN

Спасиб но я нашёл способ по лучше

Код

var  Form1: TForm1;  FLastX,FLastY:integer; implementation {$R *.DFM} procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin  FLastX:=x;   FLastY:=y;  end; procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer); begin   if (HiWord (GetAsyncKeystate(VK_LBUTTON))>0) then   begin      GetParenTForm(self).Left:=GetParenTForm(self).Left+x-FLastX;      GetParenTForm(self).Top:=GetParenTForm(self).Top+y-FLastY;   end; end;

Чем же это лучше того что предложил rhf?

Да понимаешь вит, я пишу программу с нестандартной формой, местами она загибается, местами выгибается, вообщем не квадрат и не прямоугольник.
Ну с точки зрения дизайнерской идеи предложенный способ не красив, это долго обяснять но в крации тут разные типы движения формы, сам попробуй.

Ну, не знаю... У меня тоже нестандартная форма, вся с выгибонами различными. Использую

void __fastcall TShell::Image2MouseDown(TObject *Sender,
     TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Button == mbLeft)
  {
   ReleaseCapture ();
   SendMessage (Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
  }
}

(что rhf и советует) - работает замечательно.

Нехотел в крации объэтом но вижу придётся, в твоём примере Garik сначала двигается прямоугольный дух формы, а потом когда отпускаешь мышь там появляется форма, а мой способ эту форму двигает, ну как в winamp'e, тоесть с дизайнерской точки зрения процесс передвижения треугольной формы с образованием вокруг её площади квадратного пунктира (онже дух, онже индикатор позиции) выглядит не красиво.

Прямоугольный "дух" двигаться будет только в том случае, если отключено отображение содержимого окна при переносе (что случается довольно редко, т.к. компьютеры сейчас довольно мощные и тормозить это не будет, задо выглядит гораздо лучше). А вот так, как делаешь ты, возможно моргание окна при перетаскивании. Причем, порой очень сильное. Именно поэтому я от такого способа изначально отказался (у меня, например используется скин и это довольно тяжеловато для отрисовки обычным способом).

Знаешь, я думаю что для тех у кого слабые тачки,  дизайнерские навороты вообще не нужны. Такчто переделывай чтоб как у меня было