(Delphi) Написание книги

[GidroFobia]

Всем привет. На делфи ни разу не работал, поэтому прошу помощи.
В окне слева расположил ListBox, справа textout.

После добавления текста ругается

PHP код:

textout.Text:='«Будешь читать литературу для «чайников» - станешь «чайником» - программистская мудрость. Моя статья написана для начинающих программистов (НЕ ДЛЯ «ЧАЙНИКОВ»!!!), ее цель – избавить их от долгих бесполезных кликаний мышью по кнопкам, пытаясь «вслепую» создать более-менее удобный инсталлятор для своей программы. Сразу предупреждаю: в статье не будет сложных примеров скриптов, заумных фраз и обилия терминов. Здесь собран только самый необходимый минимум, который сделает процесс написания инсталлятора простым и понятным.'; 


Что не так? Подскажите пожалуйста.

[Mad_Cat]

textout - что это????

[GidroFobia]

это то, где текст выводится

Вот весь код:

unit Engine;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    textout: TMemo;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
  pos1 = 'text 1';
  pos2 = 'text 2';
  pos3 = 'text 3';

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

  listbox1.Items.add('Оглавление');
  listbox1.Items.add('•1');
  listbox1.Items.add('•2');
  listbox1.Items.add('•3');
  textout.Text:='ТЕЕЕЕЕЕКСТ';

end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin

  if (ListBox1.ItemIndex = 1) then
  begin
    textout.Clear;
    textout.Text:='Описание 1';
  end;
  if (ListBox1.ItemIndex = 2) then
  begin
    textout.Clear;
    textout.Text:='Описание 2';
  end;
  if (ListBox1.ItemIndex = 3) then
  begin
    textout.Clear;
    textout.Text:='Описание 3';
  end;
  if (ListBox1.ItemIndex = 0) then
  begin
    textout.Clear;
    textout.Text:='Выберите объект из списка';
  end;

end;

end.

[Silverstone]

А если его на мемо поменять, не пойдет?

[Аватар]

В #1 сильно длинный текстовый литерал (больше 255 символов). Наверняка на это ругается. Ну это так, телепатически Текст сообщения об ошибке нужно приводить в своих вопросах

[GidroFobia]

а поподробнее

[Hacker19_90]

а поподробнее

помоему русским языком спросили
НА ЧТО РУГАЕТСЯ? Что компил выдаёт?

[Mad_Cat]

уникальные вы люди

А если его на мемо поменять, не пойдет?

textout: TMemo;

[GidroFobia]

он ругается на перебор символов, что мне делать?

[Mad_Cat]

он ругается на перебор символов, что мне делать?

очевидно же - разбить на более мелкие строки