перевести из Delphi в С++ Bulder

unit main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MyPicture, MyBlinkPicture, StdCtrls, ExtDlgs, ExtCtrls;
 
type
  TForm1 = class(TForm)
    OpenPictureDialog1: TOpenPictureDialog;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    MyPicture:TMyPicture;
    MyBlinkPicture:TMyBlinkPicture;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  MyPicture:=TMyPicture.Create(self);
  MyPicture.Parent:=self;
  MyPicture.Left:=20;
  MyPicture.Top:=20;
  MyPicture.Width:=100;
  MyPicture.Height:=100;
  if OpenPictureDialog1.Execute then
   MyPicture.CurPic:=OpenPictureDialog1.FileName;
  MyPicture.Visible:=true;
  MyPicture.BringToFront;
 
  MyBlinkPicture:=TMyBlinkPicture.Create(self);
  MyBlinkPicture.Parent:=self;
  MyBlinkPicture.Left:=200;
  MyBlinkPicture.Top:=200;
  MyBlinkPicture.Width:=100;
  MyBlinkPicture.Height:=100;
  if OpenPictureDialog1.Execute then
   MyBlinkPicture.CurPic:=OpenPictureDialog1.FileName;
  MyBlinkPicture.Visible:=true;
  MyBlinkPicture.BringToFront;
end;
 
end.
 
 
 
 
unit MyPicture;
 
interface
 
uses
  SysUtils, Classes, Controls, Graphics;
 
type
  TMyPicture = class(TGraphicControl)
 
  protected
    _CurPic:string;
 
    Bitmap:TBitmap;
    procedure LoadPic(new:string);
 
  published
    property CurPic:string read _CurPic write LoadPic;
    procedure Paint; override;
    constructor create(p:TComponent);
    destructor destroy; override;
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('Standard', [TMyPicture]);
end;
 
constructor TMyPicture.create(p:TComponent);
begin
 inherited create(p);
 bitmap:=TBitmap.Create;
end;
 
destructor TMyPicture.destroy;
begin
 Bitmap.Destroy;
 inherited destroy;
end;
 
procedure TMyPicture.LoadPic(new:string);
begin
 _CurPic:=new;
 Bitmap.LoadFromFile(_curPic);
 Height:=bitmap.Height;
 width:=bitmap.Width;
 Paint;
end;
 
procedure TMyPicture.Paint;
var i,j:integer;
begin
if visible then
 for i:=0 to bitmap.Width-1 do
  for j:=0 to Bitmap.Height-1 do
   canvas.Pixels[i,j]:=bitmap.Canvas.Pixels[i,j];
end;
 
end.
 
 
 
 
 
unit MyBlinkPicture;
 
interface
 
uses
  SysUtils, Classes, Controls, Graphics, MyPicture, ExtCtrls;
 
type TMyBlinkPicture=class(TMyPicture)
      protected
       Timer:TTimer;
       forwarded:boolean;
       procedure Switch(sender:Tobject);
      published
       procedure Paint; override;
       constructor create(p:TComponent);
       destructor destroy; override;
     end;
 
implementation
 
constructor TMyBlinkPicture.create(p:TComponent);
begin
 inherited create(p);
 Timer:=TTimer.Create(p);
 Timer.OnTimer:=Switch;
end;
 
destructor TMyBlinkPicture.destroy;
begin
 Timer.Destroy;
 inherited destroy;
end;
 
procedure TMyBlinkPicture.paint;
var i,j:integer;
begin
 if visible then
 if forwarded
  then inherited paint
  else for i:=0 to bitmap.Width-1 do
        for j:=0 to Bitmap.Height-1 do
         canvas.Pixels[bitmap.Width-1-i,Bitmap.Height-1-j]:=bitmap.Canvas.Pixels[i,j];
end;
 
procedure TMyBlinkPicture.Switch;
begin
 forwarded:=not forwarded;
 paint;
end;
 
end.