copy the contents of a an OLE WORD object into the clipboard

Hello

How can I copy the contents of a TOleContainer with an OLE WORD object into
the clipboard ???

I tried this :

procedure TForm1.Button5Click(Sender: TObject);
var
  i : Integer;
  S : String;
  ocDoc : OleVariant;
begin
  try
    OleContainer4.Run; // OleContainer contains a Word document
    if OleContainer4.State = osRunning then
    begin
      ocDoc := OleContainer4.OleObject;
      try
        ocDoc.Content.WholeStory;          // Select all
        ocDoc.Content.Copy;                // Copy to clipboard
        StatLine.SimpleText := ocDoc.Name;
      except
        on EOLESysError do
          StatLine.SimpleText := 'EOleSysError logged';
      end;
    end else
      StatLine.SimpleText := 'OleContainer is not active';
  finally
    ocDoc := UnAssigned;
    OleContainer4.Close;
  end;
end;

that work fine ... but only one time only ????

the first time,  "ocDoc.Name" return somthing like "Document in
OleContainer4"
the second time, "ocDoc.Name" return "Document 1" (an empty document)

Thanks

Didier DOUSSAUD

D_DOUSS...@COMPUSERVE.COM