manejo de parrafos con wordapplication
 

hola a todos!!
uso este codigo para ingresar parrafos con wordapplication para completar quisiera que si en un edit no se ingresa ningun valor como hago para eliminar ese parrafo?? para que no me queden parrafos en blanco.

Var
Nombre: olevariant;
rango:range;
Begin
Nombre :='C:\Documents and Settings\usuario\Escritorio\Documento.doc';
WordApplication1.Documents.Open (Nombre, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam).Activate;
WordApplication1.Visible := True;
rango:=WordApplication1.ActiveDocument.Range (EmptyParam, EmptyParam);
rango.Text:=rango.Text+edit1.text;
rango.Text:=rango.Text+edit2.text;
rango.Text:=rango.Text+edit3.text;
wordapplication1.Disconnect;

una solucion
 

aca me salio una solucion a ver que les parece, si tienen una idea mejor compartan, saludos..

Código Delphi [-]
Var
Nombre: olevariant;
rango1, rango2, rango3:range;
edit:string;
Begin
edit:=edit2.text;
Nombre :='C:\Documents and Settings\usuario\Escritorio\Documento.doc';
WordApplication1.Documents.Open (Nombre, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam).Activate;
WordApplication1.Visible := True;
rango1:=WordApplication1.ActiveDocument.Range (EmptyParam, EmptyParam);
rango2:=WordApplication1.ActiveDocument.Range (EmptyParam, EmptyParam);
rango3:=WordApplication1.ActiveDocument.Range (EmptyParam, EmptyParam);
rango1.Text:=rango1.Text+'Una'^i^i'Dos';
begin
if edit='' then
rango3.Text:=rango1.Text+edit1.text
else
rango2.Text:=rango1.Text+edit2.text;
wordapplication1.Disconnect;
end;
End;
end.

Gracias por la solución.

Si utilizas TAG's cuando escribas código verás que se lee mucho mejor.