unit UMemo;

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, FMXUtils;

TFMemo = class(TForm)

MInstallation: TMemo;

BClose: TButton;

procedure BCloseClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

public

Installation: Integer;

procedure Output(s: String);

end;

FMemo: TFMemo;

uses USetup;

procedure TFMemo.Output(s: String);

MInstallation.Lines.Add(s);

end;

procedure TFMemo.BCloseClick(Sender: TObject);

case Installation of

0: ExecuteFile(FSetup.ToDir + 'JavaEditor.exe', '', '', SW_ShowNormal);

1: ExecuteFile(GetTempDir + 'RunJava.bat', '', '', SW_Hide);

end;

FSetup.Close;

end;

procedure TFMemo.FormCreate(Sender: TObject);

Installation:= 2

end;

end.