[Glob]

Нужно заменить текст в memo1. Код работает но очень медленно, а мемо содержит 15 тыс строк.
Сам код вот:

PHP код:

k:=0;
while k<=Memo1.Lines.Count do
begin
Text := StringReplace(Memo1.Lines[k], 'null', '''null''', [rfReplaceAll, rfIgnoreCase]);
Memo1.Lines[k] := Text;
k:=k+1;
Edit1.Text:= 'Заменяю текст в строке '+ IntToStr(k) ;
Application.ProcessMessages; 


Вопрос: можно ли как-то ускорить замену?