Помогите с переводом Delphi7 на Borland C++6 ( это легко но я не могу) - C++ Builder - Ответ 75230

Indicator: TGauge;
lbCaption: TLabel;
bnCancel: TBitBtn;
 
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure bnCancelClick(Sender: TObject);
 
bCancel : Boolean;
mResult : integer;
:wall:
EWindowList: pointer;
EActiveWindow:HWND;
function MessageHook(var Msg: TMessage): Boolean;
procedure SetIndicator(v:integer);
 
function TFormProgressCancel.MessageHook(var Msg: TMessage): Boolean;
begin
Result := False;
end;
 
//------------------------------------------------------------------------------
procedure TFormProgressCancel.SetIndicator(v:integer);
begin
Indicator.Progress := v;
end;
{
//------------------------------------------------------------------------------
procedure TFormProgressCancel.FormClose(Sender: TObject;var Action: TCloseAction);
var time: Cardinal;
begin
if (mResult = mrCancel) then
begin
action := caNone;
mResult := mrOk;
end
else
begin
Indicator.Progress := 100;
time := GetTickCount;
while GetTickCount - time < 500 do
Application.ProcessMessages;
Application.UnhookMainWindow(MessageHook);
EnableTaskWindows(EWindowList);
SetActiveWindow(EActiveWindow);
end;
end;
//------------------------------------------------------------------------------