ошибка в процедуре передачи параметров

[Federer]

unit PassByVal;

interface

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

type
  TfrmPassByReference = class(TForm)
    btnTestDriver: TButton;
    memOutput: TMemo;

    procedure btnTestDriverClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPassByReference: TfrmPassByReference;

implementation

{$R *.dfm}
        procedure MyProcedure(number: Integer);
    begin
         frmPassByReference.memOutput.Lines.Add('Початок роботи MyProcedure:  ' +
                                                 '       number = ' +
                                                 IntToStr(number));
         number := 2*number;

         frmPassByReference.memOutput.Lines.Add('Завершення роботи
                                                MyProcedure:'+ '       number = '
                                                + IntToStr(number));
        end;
procedure TfrmPassByReference.btnTestDriverClick(Sender: TObject);
var
  value: Integer;
begin
   value := 5;
   memOutput.Clear;
   memOutput.Lines.Add('Початок роботи тестової програми:       value = '+
                                                          IntToStr(value));
   MyProcedure(value);
   memOutput.Lines.Add('Завершення роботи тестової програми:  value= ' +
                                                           IntToStr(value));
end;

end.

[tsar_]

Пишет "Незавершенная строка". Строка должна начинаться с апострофа и заканчиваться апострофом в одной строке кода.
Попробуй так:

frmPassByReference.memOutput.Lines.Add('Завершення роботи'+#13#10+
                                                'MyProcedure:'+ '       number = '
                                                + IntToStr(number));

[Federer]

Большое спасиба за помощь!