OutputText: String;
  BuildStatusWindow: TBuildStatusWindow;

implementation

{$R *.lfm}

// TODO: not working
function TBuildStatusWindow.BuildDocument(CommandLine: String): Boolean;
var
  p: TProcess;
  AStringList: TStringList;
begin
  p := TProcess.Create(nil);
  p.Options := p.Options + [poWaitOnExit, poUsePipes];

    // We don't have any output. We can close the window.
    BuildStatusWindow.Close;
    result := True
  end
  else begin
    // There was some output. Chances are that warnings occurred.
    // Keep it shown.
    // TODO: This does not always work well...
    result := False
  end;
end;

end.