перевод кода с Delphi

[sergo555]

Привет всем. Помогите код с Делфи на Билдер перевести.
На делфи код такой:

var
	OO: Variant;
	Desktop: Variant;
	Document: Variant;
	TextPointer: Variant;
	CursorPointer: Variant;
begin
	OO := CreateOleObject('com.sun.star.ServiceManager');
	Desktop := OO.createInstance('com.sun.star.frame.Desktop');
	Document := Desktop.LoadComponentFromURL('private:factory/swriter', '_blank', 0, VarArrayCreate([0, -1], varVariant));

	TextPointer := Document.GetText;
	CursorPointer := TextPointer.CreateTextCursor;
	TextPointer.InsertString(CursorPointer, Text, false);
	TextPointer.InsertControlCharacter(CursorPointer, 0, false);
end;

На Билдер начало такое, прошу помочь продолжить.

Variant OO, Desktop, Document, TextPointer, CursorPointer ;
OO = Variant::CreateObject("com.sun.star.ServiceManager");
Desktop = OO.OleFunction("createInstance", "com.sun.star.frame.Desktop");
int Bounds[2] = {0,-1};
Document  = Desktop.OleFunction("LoadComponentFromURL", "private:factory/swriter", "_blank", 0, VarArrayCreate(Bounds, 1, varVariant));

а дальше не знаю. Прошу помочь с этими последними 4-мя строчками

[sergo555]

вопрос решен