ANTICHAT - Показать сообщение отдельно - Удаление пустых строк

Может у тебя проблема в том, что в Memo1 находится не только пробелы и пустые строки или табуляторы а еще какая нить непечатная фигня? И ты по этому поводу мозги угукаешь людям.

Код:

var
  x : integer;
begin
  for x := Memo1.Lines.Count - 1 downto 0 do
  begin
    if trim(Memo1.Lines.Strings[x]) = '' then Memo1.Lines.Delete(x);
  end;
end;

Отлично удаляет пустые строки, строки состоящие из пробелов, строки состоящие из табуляторов и строки состоящие из табов и пробелов.