Помогите пожалуйста перевести код из Delphi в C++ Builder. Какие тут ошибки?

[Alina96]

unit Unit1; 

interface 

uses 
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; 

type 
TForm1 = class(TForm) 
Button1: TButton; 
Memo1: TMemo; 
Edit1: TEdit; 
Edit2: TEdit; 
Edit3: TEdit; 
Label1: TLabel; 
Label2: TLabel; 
Label3: TLabel; 
procedure Button1Click(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 

var 
Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
var 
fa1, fa2, fa3, plan, plan1, sum1:real; 
ma, sa:integer; 

begin 
memo1.Clear; //Очищаем лог 
ma:=200;//Масса пачки масла 
sa:=144; //Себестоимость пачки масла 
plan:=2.7; 
fa1:=StrToFloat(edit1.Text); //Вносим значение поля в переменную 
fa2:=StrToFloat(edit2.Text); //Вносим значение поля в переменную 
fa3:=StrToFloat(edit3.Text); //Вносим значение поля в переменную 

memo1.Lines.Add('Себестоимость этой пачки '+inttostr(sa)); 
plan1:=fa1+fa2+fa3; //План 
memo1.Lines.Add('Три Фасовочные линии в сумме выпустили '+floattostr(plan)+' тон масла'); 
memo1.Lines.Add('Расчитаем себестоимость выпущеного масла и количество пачек'); 
memo1.Lines.Add('Масса пачки масла '+inttostr(ma)); 
plan1:=plan1*1000*1000/200; 
memo1.Lines.Add('Мы получили '+floattostr(plan1)+ ' пачек'); 
sum1:=plan1*144; 
memo1.Lines.Add('Себестоимость всех пачек масла '+floattostr(sum1)+ ' Рублей'); 

if plan1plan then 
memo1.Lines.Add('План Перевыполнен. Рабочий получит 41% от себестоимости выпущеного масла свверхнормы'); 
sum1:=sum1/100*41; 
memo1.Lines.Add('Рабочий получит '+floattostr(sum1)+ ' рублей прибавки к зарплате'); 

end;

Пожалуйста, оформляйте Ваш код согласно правилам.