Помогите усовершенствовать код

[xPAL]

Мне нужно, чтобы вот такая запись:
СЛОВО
Значение
была преведена к виду:
<m>
<l>ru</l>
<ms>СЛОВО</ms>
<ms>слово</ms>
<t>
Значение
</t>
</m>
Но в моём коде Значение может быть длиной только в одну строку, мне нужно чтоб оно было многострочным. Не нашёл вариантов решения данной задачи. Пожалуйста помогите. Заранее спасибо.

procedure TForm1.Button1Click(Sender: TObject);
var lineIndex,charindex:integer;
str,question,answer:string;
a,b:char;
z:boolean;

begin
 if memo2.Lines.Count<>0 then
  memo2.Lines.Clear;
 memo3.Lines.clear;
 answer:='';
 question:='';
 lineindex:=0;
 z:=false;
 while lineindex<=memo1.Lines.Count-1 do begin
  str:=memo1.Lines.Strings[lineindex];
  charindex:=1;

  while charindex<=length(str) do begin     // Перебор по буквам
   a:=str[charindex];
   b:=str[charindex+1];
   if ((ansiuppercase(a)=a) and (ansiuppercase(b)=b))or
      ((ansiuppercase(a)=a) and (ansiuppercase(b)=' ')and  (ansiuppercase(str[charindex+2])=str[charindex+2]))then begin
    question:=question+a;
    if z=true then
      z:=false else z:=true;
    end else begin
    if z=false then begin answer:='';

 memo3.Lines.Clear; end;
 answer:=memo1.Lines.Strings[lineindex];
 memo3.Lines.Add(answer);

 break;
 end;
inc(charindex);
end;
if z=true then begin
if question<>'' then begin
memo2.lines.add('<m>');
memo2.lines.add('<l>ru</l> ');
memo2.lines.add('<ms>'+question+'</ms>');
memo2.lines.add('<ms>'+AnsiLowercase(question)+'</ms>');
end;
if memo3.Lines.count>0 then begin
memo2.lines.add('<t>');
memo2.Lines.AddStrings(memo3.Lines);
memo2.Lines.Add('</t>');
memo2.lines.add('</m>');
z:=false;
end;

question:='';
end;

inc(lineindex);
end;


end;

[dr.Chas]

var lineIndex,charindex:integer;
str,question,answer:string;
a,b:char;
z:boolean;

begin
 if memo2.Lines.Count<>0 then
  memo2.Lines.Clear;
 memo3.Lines.clear;
 answer:='';          str:='';
 question:='';
 lineindex:=0;
 z:=false;
 while lineindex<=memo1.Lines.Count-1 do begin
  str:=memo1.Lines.Strings[lineindex];
  charindex:=1;

  while charindex<=length(str) do begin     // Перебор по буквам
   a:=str[charindex];
   b:=str[charindex+1];
   if ((ansiuppercase(a)=a) and (ansiuppercase(b)=b))or
      ((ansiuppercase(a)=a) and (ansiuppercase(b)=' ')and  (ansiuppercase(str[charindex+2])=str[charindex+2]))then begin
    question:=question+a;
    if z=true then
      z:=false else z:=true;
    end else begin
    if z=false then begin answer:='';

 memo3.Lines.Clear; end;
 answer:=memo1.text;//.Lines.Strings[lineindex];     <------ вот тут
 memo3.Lines.Add(answer);

 break;
 end;
inc(charindex);
end;
if z=true then begin
if question<>'' then begin
memo2.lines.add('<m>');
memo2.lines.add('<l>ru</l> ');
memo2.lines.add('<ms>'+question+'</ms>');
memo2.lines.add('<ms>'+AnsiLowercase(question)+'</ms>');
end;
if memo3.Lines.count>0 then begin
memo2.lines.add('<t>');
memo2.Lines.AddStrings(memo3.Lines);
memo2.Lines.Add('</t>');
memo2.lines.add('</m>');
z:=false;
end;

question:='';
end;

inc(lineindex);
end;

вы в том месте берёте только одну строку по этому у вас и получаеться одно строчным. Просто пропускайте первую строку а остальное считывайте. Я вам всего лишь указал место в котором ошибка.

[xPAL]

Проблема в том что в memo1 может быть запись типа этой:
СЛОВО
Значение
ДРУГОЕ СЛОВО
Другое значение

при answer:=memo1.text;
получается

<m>
<l>ru</l>
<ms>СЛОВО</ms>
<ms>слово</ms>
<t>
Значение
ДРУГОЕ СЛОВО
Другое значение
</t>
</m>

[dr.Chas]

слишком ты поверхносто объясняешь, а как это запись в мемо падает? Я так понял это что типа словаря. Попробуй между

СЛОВО
Значение

СЛОВО
значение

делать пустую строку и проверять её.

[mutabor]

Тут все просто, если после строки в верхнем регистре не идет строка в нижнем, запись не сохранять. Если же идет в нижнем - сохранять, и так до конца.
Пустая строка как разделитель не нужна.

[_SERGEYX_]

Совем непонятно. Разбей свою строку на подстроки, где :
первая строка - СЛОВО (в верхнем регистре)
вторая строка - слово (в нижнем регистре)
третья строка - все остальное
Если COUNT строк < трёх минус один - не сохранять.

[mutabor]

А вообще да, так лучше не делать: xxx :=memo1.text;
Гораздо удобнее работать с массивом строк - Lines[], как это делать, я написал выше.
Memo.Text это строка, к-рая содержит в себе все строки Мемо, разделенные символами #13#10, для данной задачи парсить такую строку очень неудобно.