Рисуем крестик (Delphi 7)

[alxd]

На форме есть компонент Image, при двойном клике хочу нарисовать на нем крестик, но почему-то он получается смещенным.

Делаю так:

x := Mouse.CursorPos.X-(fmMain.Left + ImageDesktop.Left);
y := Mouse.CursorPos.Y-(fmMain.Top + ImageDesktop.Top);
ImageDesktop.Canvas.MoveTo(x-3, y);
ImageDesktop.Canvas.LineTo(x+4, y);
ImageDesktop.Canvas.MoveTo(x, y-3);
ImageDesktop.Canvas.LineTo(x, y+4);

Подскажите, как правильно определить координаты, где нужно рисовать?

[Neeter]

Мне кажется, мешаются бордюры формы.
Узнать ширину бордюра можно вроде так:

GetSystemMetrics(SM_CXEDGE)

А заголовок окна (бордюр вверху), так:

GetSystemMetrics(SM_CYCAPTION)

Описание функции GetSystemMetrics

Так что код можно попробовать изменить так:

x := Mouse.CursorPos.X-(fmMain.Left + ImageDesktop.Left + GetSystemMetrics(SM_CXEDGE));
y := Mouse.CursorPos.Y-(fmMain.Top + ImageDesktop.Top + GetSystemMetrics(SM_CYCAPTION));
ImageDesktop.Canvas.MoveTo(x-3, y);
ImageDesktop.Canvas.LineTo(x+4, y);
ImageDesktop.Canvas.MoveTo(x, y-3);
ImageDesktop.Canvas.LineTo(x, y+4);

[alxd]

Мне кажется, мешаются бордюры формы.

Я так и думал, просто не знал как определить это значение.

Спасибо!

[SERG1980]

implementation

{$R *.dfm}
var x1,y1:integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
ImageDesktop.Canvas.Brush.Color := clWhite;
  ImageDesktop.Canvas.FillRect(Canvas.ClipRect);
  ImageDesktop.Canvas.Rectangle(0, 0, ImageDesktop.Width, ImageDesktop.Height);

end;

procedure TForm1.ImageDesktopDblClick(Sender: TObject);
begin
 ImageDesktop.Canvas.Brush.Color := clWhite;
  ImageDesktop.Canvas.FillRect(Canvas.ClipRect);
  // Перерисвываем
  ImageDesktop.Canvas.Rectangle(0, 0, ImageDesktop.Width, ImageDesktop.Height);
  ImageDesktop.Canvas.MoveTo(x1-3, y1);
  ImageDesktop.Canvas.LineTo(x1+4, y1);
  ImageDesktop.Canvas.MoveTo(x1, y1-3);
  ImageDesktop.Canvas.LineTo(x1, y1+4);
end;

procedure TForm1.ImageDesktopMouseDown(Sender: TObject; Button:TMouseButton; 
  Shift: TShiftState; X, Y: Integer);
begin
x1:=X;
y1:=Y;
end;
//проще взять координаты в этом событии у1 и х1 глобальные переменные и всё

[alxd]

О! Класс! Спасибо! Так даже правильнее, мне кажется