К тексту из Memo добавить html-теги таблицы

[Heavenanvil]

Пытаюсь реализовать следующее:
Введенный текст в поле memo имеет вид:

текст1 символ табуляции текст2
текст3 символ табуляции текст4
...

Разумеется "символ табуляции" это не текст.
Нужно, чтобы при нажатии на кнопку (buton) на выходе получалось следующее:

<table><tr><td>текст1</td><td>текст2</td></tr><tr><td>текст3</td><td>текст4</td></tr></table>

То есть создавался код html-таблицы с содержимым из memo.
Пробовал колдовать опираясь на эту тему, но ничего не получилось.

[Stilet]

С потолка

var i:integer;
begin
 with Memo do begin
  for i:=0 to Count-1 do   Lines[i]:='<tr><td>'+Lines[i]+'</td></tr>';
  Text:='<table>'+Text+'</table>';
  Text:=StringReplace(Text,символ табуляции,'</td><td>',[rfreplaceall]);
 end;
end;

Короче поколдовать можно...

[JUDAS]

символ табуляции = #9 )

[Heavenanvil]

Спасибо, что попытались помочь, но немного не понимаю:
Чем в данном коде является "Count"? Объявил как переменную, аналогично "i".

procedure TForm1.Button6Click(Sender: TObject);
var i:integer;
var Count:integer;
begin
 with Memo1 do begin
  for i:=0 to Count-1 do   Lines[i]:='<tr><td>'+Lines[i]+'</td></tr>';
  Text:='<table>'+Text+'</table>';
  Text:=StringReplace(Text,#9,'</td><td>',[rfreplaceall]);
end;

Программа виснет при нажатии на кнопку и выдаёт не то, что нужно

[Аватар]

Count это свойство Memo1, так же как и Lines и Text

[Heavenanvil]

Тогда почему, он ругается при попытке запустить?
[Error] Unit1.pas(54): Undeclared identifier: 'Count'

[Аватар]

Это уже заторможенность отвечающих. Напишите Lines.Count вместо Count

[Heavenanvil]

Благодарю. Очень помогли. Всё работает. Тему можно закрывать.
Может кому пригодится:

procedure TForm1.Button6Click(Sender: TObject);
var i:integer;
begin
 with Memo1 do begin
  for i:=0 to Lines.Count-1 do   Lines[i]:='<tr><td>'+Lines[i]+'</td></tr>';
  Text:='<table>'+Text+'</table>';
  Text:=StringReplace(Text,#9,'</td><td>',[rfreplaceall]);
end;

[Stilet]

Это уже заторможенность отвечающих.

Которым хоцца спатки, но приходится сидеть и ждать пока комп обработает гуглильярды данных