>>94
いくらでも速度を向上させる方法はあるけど、例えば StringListを使ったら？

var
　　i:integer;
　　wStrList:TStringList;
begin

　　wStrList:=TStringList.Create;

　　wStrList.Text:=Self.RichEdit1.Text;

　　for i:=wStrList.Count-1 downto 0 do
　　begin
　　　　　if (wStrList.Strings[i]='') then
　　　　　　wStrList.Delete(i);
　　end;

　　Self.RichEdit1.Lines.BeginUpdate;
　　Self.RichEdit1.Text:=wStrList.Text;
　　Self.RichEdit1.Lines.EndUpdate;

　　wStrList.Free;

end;