{*******************************************************}
{                                                       }
{       Pascal Script Source File                       }
{       Run by RemObjects Pascal Script in CnWizards    }
{                                                       }
{       Generated by CnPack IDE Wizards                 }
{                                                       }
{*******************************************************}

program SetBreakPt;

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

var
  IDebuggerService: IOTADebuggerServices;
  S: string;
begin
  IDebuggerService := IOTADebuggerServices(BorlandIDEServices);
  S := CnOtaGetCurrentSourceFile;
  // NewSourceBreakpoint can NOT work in Delphi 567/C++Builder 56.
  IDebuggerService.NewSourceBreakpoint(S, 10, IDebuggerService.GetCurrentProcess);
  // Set a Breakpoint at 10 line of Current Source File.
end.
 
 