Протестировать программу

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
TNewThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
end;
 
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Memo1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Thread:TNewThread;
implementation
 
{$R *.dfm}
{$O-}
 
 
{ TNewThread }
 
procedure TNewThread.Execute;
var i,q:integer;
begin
  inherited;
  q:=0;
  if (form1.memo1.Lines[form1.Memo1.CaretPos.Y][form1.Memo1.CaretPos.X]='(') then begin
      for i:=0 to form1.memo1.Lines.Count-1 do
         if i=form1.Memo1.CaretPos.Y then begin
           q:=q+length(copy(form1.memo1.Lines[i],1,form1.Memo1.CaretPos.X)); break; end else
            q:=q+length(form1.memo1.Lines[i]);
 
 
 
    for i:=q to length(form1.memo1.Text) do
      if form1.memo1.text[i]=')' then begin
        form1.memo1.SelStart:=i-1;
        form1.memo1.SelLength:=1; break; end;
        exit;
        end;
 
 
  if (form1.memo1.Lines[form1.Memo1.CaretPos.Y][form1.Memo1.CaretPos.X]=')') then begin
      for i:=0 to form1.memo1.Lines.Count-1 do
         if i=form1.Memo1.CaretPos.Y then begin
           q:=q+length(copy(form1.memo1.Lines[i],1,form1.Memo1.CaretPos.X)); break; end else
            q:=q+length(form1.memo1.Lines[i]);
 
 
 
    for i:=q downto 1 do
      if form1.memo1.text[i]='(' then begin
        form1.memo1.SelStart:=i-1;
        form1.memo1.SelLength:=1; break; end;
        end;
end;
 
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Thread:=TNewThread.Create(true);
Thread.FreeOnTerminate := true;
Thread.Priority:=tpLower;
Thread.Resume;
end;
 
end.

procedure TNewThread.Execute;
var i,q:integer;
begin
  inherited;
  q:=0;
  Teditor.SynEdit1.sel
  with TSynEdit(Teditor.PControl.ActivePage.Controls[0]) do
  begin
  if (Lines[CaretY][CaretX]='(' )then begin
      for i:=0 to Lines.Count-1 do
         if i=CaretY then begin
           q:=q+length(copy(Lines[i],1,CaretX)); break; end else
            q:=q+length(Lines[i]);
 
 
 
    for i:=q to length(Text) do
      if text[i]=')' then begin
        SelStart:=i-1;
        SelLength:=1; break; end;
        exit;
        end;
 
 
  if (Lines[CaretY][CaretX]=')') then begin
      for i:=0 to Lines.Count-1 do
         if i=CaretY then begin
           q:=q+length(copy(Lines[i],1,CaretX)); break; end else
            q:=q+length(Lines[i]);
 
 
 
    for i:=q downto 1 do
      if text[i]='(' then begin
        SelStart:=i-1;
        SelLength:=1; break; end;
        end;
  end;
end;
 
 
procedure TTeditor.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Thread:=TNewThread.Create(true);
Thread.Execute;
Thread.FreeOnTerminate := true;
Thread.Priority:=tpLower;
Thread.Resume;
end;