[NumLock]

Код:

var
  WordApplication: OleVariant;
  WordDocument: OleVariant;
begin
  DBImage1.CopyToClipboard;
  WordApplication:=CreateOleObject('Word.Application');
  WordApplication.Visible:=True;
  WordApplication.Documents.Add(DocumentType:=wdNewBlankDocument);
  WordDocument:=WordApplication.Documents.Item(1);
  WordDocument.ActiveWindow.Selection.TypeText(Text:='1234');
  WordDocument.ActiveWindow.Selection.TypeParagraph;
  WordDocument.ActiveWindow.Selection.Paste;
  WordDocument.ActiveWindow.Selection.TypeParagraph;
  WordDocument.ActiveWindow.Selection.TypeText(Text:='abcd');
  WordDocument.ActiveWindow.Selection.TypeParagraph;
end;

Сообщение от borockov

Народ, а кто знает, есть возможность перевода картинки в строку?

<img src="data:image/gif;base64,<base64 строка>" />