Fórum wordapplication como usar mais de 255 caracteres #15550

Bom Dia   Uso uma função no meu sistema que pega os dados dos TEdit que estão na tela e repassa para um contrato no Microsoft Word, ele pega no contrato o parametro e procura o TEdit com o nome correspondente. Mas essa função toda vez que eu tento passar mais de 255 caracteres da erro dizendo "ERRO -> Seqüência de caracteres muito longa". E estou precisando passar uma descrição completa do produto para o contrato que passa de 2000 caracteres.   Por favor me ajudem, segue a função que uso abaixo:   procedure TfrmContrato.SpeedButton19Click(Sender: TObject);
var
 DocOrigem , DocDestino : OleVariant;
 Procurar  , Substituir : OleVariant;
 i :Integer; begin    DlgWord.Execute;  //Topendialog
   if (ExtractFileExt(DlgWord.FileName) = '.dot') then
      begin
        WordApp:=TWordApplication.Create(Application.Owner);
        WordApp.Visible := True;
        WordDoc := TWordDocument.Create(Application.Owner);
        DocOrigem := DlgWord.FileName;
        WordDoc.ConnectTo(WordApp.Documents.Add(
                          DocOrigem,EmptyParam,EmptyParam,EmptyParam));         for i := 0 to ComponentCount -1 do
            Begin
            if Components[i] is TEdit then
               begin
                 Procurar := '@'+Components[i].Name;
                 Substituir := (Components[i] as Tedit).Text;                  WordDoc.Content.Find.Execute(Procurar,EmptyParam,EmptyParam,EmptyParam,
                                            EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                            EmptyParam,Substituir,EmptyParam,EmptyParam,
                                            EmptyParam,EmptyParam,EmptyParam);
              end;
        end;
        DocDestino := 'C:\Contrato.doc';
        WordDoc.SaveAs(DocDestino,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                     EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
        //WordDoc.Close;     end
    else
      MessageDlg('Arquivo selecionado nao esta no formato correto.',mtWarning,[mbOK],0);     flagwordcontrato := 'N';
end;