[Winny]

Вот код, показывает стрелки только с левой строны и сверху, справа и снизу дамаю сам допишешь:

Код:

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if X=Button1.Height div 10 div Button1.Height then
Button1.Cursor:=crSizeWE
else
Button1.Cursor:=crDefault;
if Y=Button1.Width div 10 div Button1.Width then
Button1.Cursor:=crSizeNS;
if X=Button1.Height div 10 div Button1.Height then
Button1.Cursor:=crSizeWE
else
Button1.Cursor:=crDefault;
end;

end.

ЗЫ. Показ стрелочек очень чуствителен на движение мыши, так что целься лучше