Круто, я б здогадався лише на мінус одиницю помножити.

Доброго дня панове!
Підкажіть як вивести константу типу String яка в загальному має 157 символів, так щоб вивелось в поле RichEdit1 з першого по 152 символ, а 5 останніх відкидалось. Там формула яка в мене пізніше дублюється.
Спробував ось так

видало помилку Елемент 0 недоступний - використовуйте 'Length' (Довжина) або 'SetLength'(Встановити довжину)
А Як правильно в коді прописати ту довжину, так як після Add я ставлю крапку а редактор коду не виводить ні Length ні SetLength.
Ось код! Допоможіть змінити його будь-ласка!

Definition := SHVIDKIST;
  RichEdit1.Lines.Add(Definition);
  Definition := EmptyLine;
  Definition := SHVIDKIST_RUHU_TILA;
  RichEdit1.Lines.Add(Definition[0..152]);
  Definition := EmptyLine;
  RichEdit1.Lines.Add(Definition);
  RichEdit1.Lines.Add ('Визначаємо швидкість');
  RichEdit1.SelAttributes.Color := clRed;
  RichEdit1.Lines.Add ('v=l/t');
  Variables[4,0] :=  Variables[2,0] / Variables[1,0];
  undo := False;

Дякую пане topprogrammer.
Підкажіть іще одне: так як поле RichEdit працює з форматом RTF, то чи можу я в нього додати картинку.
Коли я в Word набираю формули і зберігаю документ в форматі RTF, формули там відтворюються як зображення, а не як текст, от я і подумав чи можливо програмно завантажити малюнок з формулою в RichEdit на місце ось цього рядка коду

RichEdit1.Lines.Add ('v=l/t');

Пане koala я знаю що в браузер можна підгружати малюнки, от я тільки не знаю як звідти зберігати текст в RTF. Я питаю про RichEdit для загального розвитку. Та і краще вже TJvRichEdit використовувати для запису формул як радив пан Торбінс.

Доброї ночі пане Torbins! Замінив я RichEdit за вашою порадою на TJvRichEdit і все пройшло успішно, дякую!
Якщо ви не сильно зайняті не могли б ви будь-ласка допомогти мені з цим компонентом докладніше розібратись на прикладах?
Перше нагальне питання. Як замінити ось цей рядок коду, щоб він мені виводив формулу не лінійно а професійно, через дріб?

RichEdit1.Lines.Add ('s=A/F');

Або, якщо це не можливо то на місце цього рядка коду підгрузити картинку з цією формулою, скріншот якої я попередньо зроблю в Word. Но, потрібно щоб це не стерло попередній текст, який виводиться кодом

Definition := PEREMISCHENNYA_S;
  RichEdit1.Lines.Add(Definition);
  Definition := EmptyLine;
  RichEdit1.Lines.Add(Definition);
  RichEdit1.Lines.Add ('Визначаємо переміщення механічної роботи.');
  RichEdit1.SelAttributes.Color := clRed;
  RichEdit1.Lines.Add ('s=A/F');
  Variables[3,0] :=  Variables[27,0] / Variables[15,0];
  RichEdit1.Lines.Add (FloatToStr(Variables[27,1]) + ' / ' + FloatToStr(Variables[15,0])...
.....
....
....

і додавало наступний

RichEdit1.Lines.Add...
...
...

Це вже більш менш те що потрібно, правда з розміром картинки треба попрацювати і буде все добре. Дякую пане Torbins

begin
   Definition := CHAS;
   RichEdit1.Lines.Add(Definition);
   Definition := EmptyLine;
   RichEdit1.Lines.Add(Definition);
   RichEdit1.Lines.Add ('Визначаємо час прямолінійного рівномірного руху.');
   Pict := TPicture.Create;
   try
      Pict.LoadFromFile('Час прямолінійного рівномірного руху.jpg');
      Clipboard.Assign(Pict);
      RichEdit1.PasteFromClipboard;
    finally
      Pict.Free;
   end;
   Definition := EmptyLine;
   RichEdit1.Lines.Add(Definition);
   Variables[1,0] :=  Variables[2,0] / Variables[4,0];
   RichEdit1.Lines.Add (FloatToStr(Variables[2,0]) + ' / ' + FloatToStr(Variables[4,0]) + ' = ' + FloatToStr(Variables[1,0]));
   undo := False;
  end

Питання знято

for a := 48 to 48 do

записується простіше:

a:=48

Вам не треба цикл робити. І min/maxRow не потрібні, це просто a. Ну і взагалі вам не потрібні номери рядків/стовпців, вам потрібні лише значення.

Max := Variables[48,0];
Min := Variables[48,0];
for b:=1 to 6 do begin
    if Max<Variables[48,i] then Max:=Variables[48,i];
    if Min>Variables[48,i] then Min:=Variables[48,i];
end;
... := Max-Min;