Type TNewMemo= class(TMemo)
  protected
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
end;

Procedure NewMemo.WMPaint(var Message: TWMPaint); message WM_PAINT;
var
 N1,           // Начальная точка прорисовки линии
 N2: integer;  // Конечная точка прорисовки линии
 A, B: integer;   // Количество символов слева до слов begin/end
 C: integer; // Отступ слева (Количество пикселей)
 N_BEGIN: integer; // номер строки, где найден begin
 N_END: integer; // номер строки, где найден end
 TopLine: integer; // Номер верхней видимой строки редактора
 K: TControlCanvas;
begin
 TopLine := Memo1.Perform(EM_GETFIRSTVISIBLELINE, 0, 0);
 // Поиск слова BEGIN, начиная от верхней видимой линии
 for N_BEGIN:= TopLine to Memo.Lines.Count-1 do
 if Pos('begin', Memo.Lines[N_BEGIN])<>0 then
 begin
  A:= Pos('begin', Memo.Lines[N_BEGIN]);
  break;
 end;
 // Поиск слова END, начиная от верхней видимой линии
 for N_END:= TopLine to Memo.Lines.Count-1 do
 if Pos('end', Memo.Lines[N_END])<>0 then
 begin
  B:= Pos('end', Memo.Lines[N_END]);
  break;
 end;
 //
 N1:= Memo1.Font.Size*N_BEGIN+6;
 N2:= Memo2.Font.Size*N_END+6;
 C:= A*7; // Количество символов умножим на ~ширину одного символа
 //
 try // Создаем холст для рисования
  K:= TControlCanvas.Create;
  K.Control:= Self; // Присваиваем его нашему Memo
  with K do
  begin
   Pen.Color:= clRed;
   // Выводим вертикальную линию
   LineTo(C, N1);
   MoveTo(C, N2);
  end;
 finally
  K.Free;
 end;
end;

|Procedure P1;
|begin
|
|end;
| // или
|  begin
|
|end;
| // или
| begin
|
|     end;

// Поиск слова BEGIN
 for N_BEGIN:= 0 to Memo.Lines.Count-1 do
 if (Pos(' begin', Memo.Lines[N_BEGIN])<>0) or
    (Pos(' begin ', Memo.Lines[N_BEGIN])<>0) or
    (Pos('begin ', Memo.Lines[N_BEGIN])<>0) or
    ( Pos('begin', Memo.Lines[N_BEGIN])<>0 then
 begin
  break;
 end;
 // Поиск слова END
 for N_END:= 0 to Memo.Lines.Count-1 do
 if (Pos(' end ', Memo.Lines[N_END])<>0) or 
    (Pos(' end;', Memo.Lines[N_END])<>0) or 
    (Pos(' end.', Memo.Lines[N_END])<>0) or
    (Pos('end', Memo.Lines[N_END])<>0) or 
    (Pos('end ', Memo.Lines[N_END])<>0) or 
    (Pos(' end', Memo.Lines[N_END])<>0) or then
 begin
  break;
 end;