Mapa clicavel de loteamento de imóveis

procedure TForm4.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if ssLeft in Shift  then //SE o botão esquerdo estiver pressionado
  begin
    SetLength(pontos, Length(pontos)+1); //Aumenta em 1 a capacidade do vetor pontos(variável gobal)
    pontos[Length(pontos)-1] := Point(x, y); //Adiciona o novo ponto ao vetor
  end;
end;

procedure TForm4.Button1Click(Sender: TObject);
var
  i:integer;
  p:string; //conjunto de todos os pontos no formato (X1, Y1)|(X2, Y2)|...|(Xn, Yn)
begin
  p := ;

  for i := 0 to Length(pontos) - 1 do
     p := p + (+IntToStr(pontos[i].X)+,+IntToStr(pontos[i].Y)+)|; //monta a string no formato definido

  Image1.Picture.Bitmap.Canvas.Brush.Color :=  clYellow;
  Image1.Picture.Bitmap.Canvas.Polygon(pontos); //Marca na imagem o lote que acabou de ser criado
  SetLength(pontos, 0); //Limpa o vetor (para poder ser usado novamente)

  //Nesse ponto, você grava os dados no banco conforme a estrutura da sua tabela e engine de conexão utilizada
  //O ponto fundamental aqui é ter uma coluna para gravar as coordenadas no formato string (tamanho indefinido e grande)  
end;