Ну конешно мой код тупенький , но все же работает .
С двумя integer переменными можно сделать так.
Код:
procedure DelStroki(Memo:tmemo);
const
Stroka='';
var
i,i2:integer;
begin
i2:=0;
for i:=0 to memo.Lines.Count -1 do begin
if memo.Lines.Strings[i2] = stroka then begin
memo.Lines.Delete(i2);
i2:=i2-1;
end;
i2:=i2+1;
end;end;
И используем так