используй trim(Memo1.Lines.Strings[i]) вместо Memo1.Lines.Strings[i] в условиях.

во втором варианте цикл неверный, количество меняется при удалении строки. верно будет for i:=memo1.lines.count-1 downto 0 do