Jak narysować krzyżyk w obrazku?

procedure TfrmMenu.PaintX(p: TPoint);
var
  hWnd ,hButton: Windows.HWND;
  hDC: Windows.HDC;
  hPen, hOldPen: Windows.HPEN;
  r: TRect;
begin
  hWnd := GetDesktopWindow;
  hButton :=  GetDC(hButton);

  //rysowanie
  hDC:= GetDC(hButton);

  //bedziemy rysowac ciagla linie 3px czerwona dlatego tworzymy sobie takie pioro
  hPen:= CreatePen(PS_SOLID, 3, RGB(255, 0, 0));
  hOldPen:= SelectObject(hDC, hPen);  //i je ustawiamy

  //bardziej tego rysowania nie dalalo sie skomplikowac ale nie chcialo mi sie liczyc ;)
  MoveToEx(hDC, p.X, p.Y, nil); //na srodek
  LineTo(hDC, p.X, p.Y - 10);  //ramie krzyża ma 10px
  MoveToEx(hDC, p.X, p.Y, nil); //na srodek
  LineTo(hDC, p.X, p.Y + 10);
  MoveToEx(hDC, p.X, p.Y, nil); //na srodek
  LineTo(hDC, p.X - 10, p.Y);
  MoveToEx(hDC, p.X, p.Y, nil); //na srodek
  LineTo(hDC, p.X + 10, p.Y);

  //robimy po sobie porzadek
  SelectObject(hDC, hOldPen);
  DeleteObject(hPen);
  ReleaseDC(hButton, hDC);

    Sleep(300); //czekamy dla demonstracji (po 2 sekundach zostanie wymazany)
//    Windows.InvalidateRect(hButton, nil, True); //tak mozesz wymazac
//  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // ustawienie ścieżki katalogu aplikacji (prywatne pole klasy)
  FAppPath := ExtractFilePath(ParamStr(0));
end;

procedure TForm1.btnLoadImageClick(Sender: TObject);
begin
  // załadowanie obrazka z pliku do komponentu
  imgSource.Picture.LoadFromFile(FAppPath + 'image.bmp');
end;

procedure TForm1.btnDrawCrossClick(Sender: TObject);
begin
  // narysowanie czerwonego krzyżyka na kanwie bitmapy
  with imgSource.Picture.Bitmap.Canvas do
  begin
    Pen.Color := clRed;
    MoveTo(25, 50);
    LineTo(75, 50);
    MoveTo(50, 25);
    LineTo(50, 75);
  end;
end;

procedure TForm1.btnSaveImageClick(Sender: TObject);
begin
  // zapisanie zmodyfikowanego obrazka do pliku źródłowego
  imgSource.Picture.SaveToFile(FAppPath + 'image.bmp');
end;

procedure TForm1.btnLoadImageClick(Sender: TObject);
var
  jpgSource: TJPEGImage;
begin
  jpgSource := TJPEGImage.Create();
  try
    jpgSource.LoadFromFile(FAppPath + 'image.jpg');
    imgSource.Picture.Bitmap.Assign(jpgSource);
  finally
    jpgSource.Free();
  end;
end;

procedure TForm1.btnSaveImageClick(Sender: TObject);
var
  jpgSource: TJPEGImage;
begin
  jpgSource := TJPEGImage.Create();
  try
    jpgSource.Assign(imgSource.Picture.Bitmap);
    jpgSource.SaveToFile(FAppPath + 'image.jpg');
  finally
    jpgSource.Free();
  end;
end;

function TfrmMenu.PrintScreen(ID_T: Integer; p: TPoint): WideString;
var
 can         :TCanvas;
 obrazekBMP  :TBitmap;
 obrazekJPG  :TJPEGImage;
 sz,wy :Integer;
Begin
  Result := '';
  can:= TCanvas.Create;
  can.Handle:= GetWindowDC(GetDesktopWindow); //przechwycenie uchwytu ekranu
  obrazekBMP:= TBitmap.Create;
  obrazekJPG:= TJPEGImage.Create;

  try
    try
     //parametry wycinka (okreslone miejsce na ekranie)
     sz:= 200; wy:= 150;

     obrazekBMP.Width:= sz;
     obrazekBMP.Height:= wy;
     obrazekBMP.Canvas.CopyRect(Rect(0, 0, sz, wy), Can, Rect(p.X - (sz div 2), p.Y - (wy div 2), p.X + sz - (sz div 2), p.Y + wy - (wy div 2)));

     with obrazekBMP.Canvas do
     begin
       Pen.Color := clRed;
       MoveTo(25, 50);
       LineTo(75, 50);
       MoveTo(50, 25);
       LineTo(50, 75);
     end;
     obrazekJPG.Assign(obrazekBMP);

     img_printscreen.Picture.Assign(Obrazekjpg);
     CreateDir(ExtractFileDir(Application.ExeName) + '\tmp');
     obrazekJPG.SaveToFile(ExtractFileDir(Application.ExeName) + '\tmp\' + IntToStr(ID_T) + '.jpeg');
     Result := ExtractFileDir(Application.ExeName) + '\tmp\' + IntToStr(ID_T) + '.jpeg';
    except
      on e:exception do
      begin
        ShowMessageDlg('Błąd zapisu zrzutu ekranu!#13#13<b>' + e.Message + '</b>', 'err');
      end;
    end;
  finally
   can.Free;
   obrazekBMP.Free;
   obrazekJPG.Free;
  end;
end;

p.X + sz - (sz div 2)