Есть идеи как первести из делфи в си++

unit UMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DPLineSimplifiction, Vectors, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
    Down:boolean;
    PL:TPolyLine;
    Dest:TPolyLine;
    procedure AddPoint(X,Y:integer);
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.AddPoint(X, Y: integer);
var t:TMDPoint;
begin
  t:=TMDPoint.Create(2);
  t[0]:=X;
  t[1]:=Y;
  PL.Add(t);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  PL:=TPolyLine.Create(2);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  PL.free;
  Dest.Free;
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PL.Clear;
  if Dest<>nil then Dest.Clear;
  Refresh;
  AddPoint(X,Y);
  Down:=true;
  Canvas.MoveTo(X,Y);
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Down then
    begin
      AddPoint(X,Y);
      Canvas.LineTo(X,Y);
    end;
end;
 
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Down then
    begin
      Down:=false;
      AddPoint(X,Y);
      Canvas.LineTo(X,Y);
      PolySimplify(Pl,Dest,5);
      Label1.Caption:=IntToStr(Pl.Count);
      Label2.Caption:=IntToStr(Dest.Count);
      Refresh;
    end;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
var i:integer;
begin
  if (Dest<>nil)and(Dest.Count<>0) then
    begin
      Canvas.Pen.Color:=clRed;
      Canvas.Pen.Width:=3;
      Canvas.MoveTo(round(Dest[0][0]),round(Dest[0][1]));
      for i:=1 to Dest.Count-1 do
        Canvas.LineTo(round(Dest[i][0]),round(Dest[i][1]));
    end;
 
  if PL.Count<>0 then
    begin
      Canvas.Pen.Color:=clBlack;
      Canvas.Pen.Width:=1;
      Canvas.MoveTo(round(PL[0][0]),round(PL[0][1]));
      for i:=1 to PL.Count-1 do
        Canvas.LineTo(round(PL[i][0]),round(PL[i][1]));
    end;
end;
 
end.