Delphi минимальное кол-во строк в Мемо через радиогруппу

[Plex3]

Я начинающий в Delphi. Столкнулся с проблемой. Перечитал кучу информации но не как не получается реализовать. Подскажите пожалуйста каким образом это можно сделать.

В редактор Memo исходно вводится текст из нескольких строк. Радиогруппа задает минимальное количество строк в редакторе.

[Vanta11a]

Ну смотрите. Допустим, есть текст

1
2
3

И радиогруппа вида

2
3
4
5

При изменении индекса в радиогруппе делаете цикл for i:=1 to *нужное число*, в котором читаете строку из текста и добавляете её в Memo. Если считана пустая строка - добавляете просто пустую строку.
Если РГ = 2, то в Мемо будет

1
2

, если РГ = 4, то в Мемо будет

1
2
3
*пустая строка*

[Plex3]

Спасибо большое, но не чего не получается.

procedure TForm1.RadioGroup1Click(Sender: TObject);
var
i: integer;
begin
i:=RadioGroup1.ItemIndex;
for I:=0 to memo1.lines.count-1 do begin
memo1.lines.count[1];

end;
end.

Где то что то не так

[Vanta11a]

Не помню как в Дельфях индексы идут, с 0 или с 1, будем считать, что с 1.

i:=RadioGroup1.ItemIndex;

Вы присваиваете индекс. Если у Вас 3 кнопки, то индексы у них 1, 2 и 3. Вне зависимости от подписи. Хоть 100500 нарисуйте на 3й кнопке, будет все равно i = 3.
Дальше.

for I:=0 to memo1.lines.count-1 do begin
memo1.lines.count[1];

Что Вы этим хотели сказать?
Может, стоило сделать что-то в духе

maxNumb := strToInt(RadioGroup1.ItemText(RadioGroup1.ItemIndex));
i:=1;
repeat
str := *считать строку из текста*;
memo.lines.add(str);
i := i+1;
until i <= maxNumb;

В строке

strToInt(RadioGroup1.ItemText(RadioGroup1.ItemIndex));

не уверен, что методы будут именно такими.

[Serge_Bliznykov]

Не помню как в Дельфях индексы идут, с 0 или с 1, будем считать, что с 1.

Индексы идут с нуля.