Поместить код в прямоугольник и выполнить

[Sibedir]

На какой строке-то?

[artemavd]

Да как бы строка не показывается на какой. Просто когда мышку отпускаю, то получается ошибка (см.скрин ниже). Вот весь код процедур:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 bX,bY: integer;
begin
 bX:=X;
 bY:=Y;
  with Form1.Image1.Canvas do
  begin
    MoveTo(X1,Y1);
    LineTo(X2,Y1);
    LineTo(X2,Y2);
    LineTo(X1,Y2);
    LineTo(X1,Y1);
  end;
  X1:=X;
  Y1:=Y;
  X2:=X;
  Y2:=Y;
  Form1.Image1.Refresh;
  Caption:=IntToStr(X1)+','+IntToStr(Y1)+' - '+IntToStr(X2)+','+IntToStr(Y2);
  Start:=TRUE;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   If Start Then
    With Form1.Image1.Canvas Do
     Begin
      Pen.Color:=clRed;
      Pen.Mode:=pmNot;
      MoveTo(X1,Y1);
      LineTo(X2,Y1);
      LineTo(X2,Y2);
      LineTo(X1,Y2);
      LineTo(X1,Y1);
      X2:=X;
      Y2:=Y;
      MoveTo(X1,Y1);
      LineTo(X2,Y1);
      LineTo(X2,Y2);
      LineTo(X1,Y2);
      LineTo(X1,Y1);
      Caption:=IntToStr(X1)+','+IntToStr(Y1)+' - '+IntToStr(X2)+','+IntToStr(Y2);
     End;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 b: TBitMap;
 r: TRect;
 bX,bY: integer;
begin
 r.Left:=Min(bX,X);
 r.Top:=Min(bY,Y);
 r.Right:=Max(bX,X);
 r.Bottom:=Max(bY,Y);
 b:=TBitMap.Create;
 b.Height:=r.Bottom - r.Top;
 b.Width:=r.Right - r.Left;
 b.Canvas.CopyRect(Rect(0,0,b.Width,b.Height),Image1.Canvas,r);
 Edit1.Text:=GetImageChars(b);
 Start:=FALSE;
 Form1.Image1.Canvas.Pen.Mode:=pmNot;
 b.Free;
end;

[Sibedir]

мои bX и bY - это ваши X1 и Y1

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 bX,bY: integer;
begin
 bX:=X;
 bY:=Y;
  with Form1.Image1.Canvas do
  begin

...

Вот подумайте, зачем вы их тут объявили, если потом нигде не использовали.

[artemavd]

Может тогда код для нажатой левой кнопки мыши будет такой:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 bX,bY: integer;
begin
  with Form1.Image1.Canvas do
  begin
    MoveTo(bX,bY);
    LineTo(X2,bY);
    LineTo(X2,Y2);
    LineTo(bX,Y2);
    LineTo(bX,bY);
  end;
  bX:=X;
  bY:=Y;
  X2:=X;
  Y2:=Y;
  Form1.Image1.Refresh;
  Caption:=IntToStr(bX)+','+IntToStr(bY)+' - '+IntToStr(X2)+','+IntToStr(Y2);
  Start:=TRUE;
end;

а Х2 и Y2 тогда что это?

[Sibedir]

Ну, попробуйте
Вы не поняли сути замечания. bX и bY, как и ваши X1..Y2 - это глобальные переменные.
Замените в коде bX и bY на X1 и Y1 и все.

[artemavd]

Заменил. Код для MouseUp получился такой:

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 b: TBitMap;
 r: TRect;
// bX,bY: integer;
begin
 r.Left:=Min(X1,X);
 r.Top:=Min(Y1,Y);
 r.Right:=Max(X1,X);
 r.Bottom:=Max(Y1,Y);
 b:=TBitMap.Create;
 b.Height:=r.Bottom - r.Top;
 b.Width:=r.Right - r.Left;
 b.Canvas.CopyRect(Rect(0,0,b.Width,b.Height),Image1.Canvas,r);
 Edit1.Text:=GetImageChars(b);
 Start:=FALSE;
 Form1.Image1.Canvas.Pen.Mode:=pmNot;
 b.Free;
end;

терь при выделении буквы, после того как отпускаешь кнопку появляется ошибка:

[Sibedir]

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  with Form1.Image1.Canvas do
  begin
    MoveTo(X1,Y1);
    LineTo(X2,Y1);
    LineTo(X2,Y2);
    LineTo(X1,Y2);
    LineTo(X1,Y1);
  end;
  X1:=X;
  Y1:=Y;
  X2:=X;
  Y2:=Y;
  Form1.Image1.Refresh;
  Caption:=IntToStr(X1)+','+IntToStr(Y1)+' - '+IntToStr(X2)+','+IntToStr(Y2);
  Start:=TRUE;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If Start Then
    With Form1.Image1.Canvas Do begin
      Pen.Color:=clRed;
      Pen.Mode:=pmNot;
      MoveTo(X1,Y1);
      LineTo(X2,Y1);
      LineTo(X2,Y2);
      LineTo(X1,Y2);
      LineTo(X1,Y1);
      X2:=X;
      Y2:=Y;
      MoveTo(X1,Y1);
      LineTo(X2,Y1);
      LineTo(X2,Y2);
      LineTo(X1,Y2);
      LineTo(X1,Y1);
      Caption:=IntToStr(X1)+','+IntToStr(Y1)+' - '+IntToStr(X2)+','+IntToStr(Y2);
    End;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  b: TBitMap;
  r: TRect;
begin
  X2:=X;
  Y2:=Y;

  r.Left:=Min(X1,X2);
  r.Top:=Min(Y1,Y2);
  r.Right:=Max(X1,X2);
  r.Bottom:=Max(Y1,Y2);

  b:=TBitMap.Create;
  b.Height:=r.Bottom - r.Top;
  b.Width:=r.Right - r.Left;
  b.Canvas.CopyRect (Rect(0,0,b.Width,b.Height),Image1.Canvas,r);

  Edit1.Text := GetImageChars(b);
  
  Start:=FALSE;
  Form1.Image1.Canvas.Pen.Mode:=pmNot;
  b.Free;
end;

[artemavd]

Да что ж такое. Уже скопировал Ваш код и вставил. И все равно не работает. Может если буде не трудно скините мой же исходник из первого поста с Вашим последним кодом. Может я что-то намудрил с переменными? Ведь ошибка гооворит о том, что идет обращение к несуществующему или еще не созданному объекту. Но к какому и где?

[Sibedir]

Get_image_chars.zip
_________________________

[artemavd]

Странно, у вас работает.... А что за цифры в Edit1 выводятся не могу понять?