Пытаюсь сохранить файл с другим именем

procedure TForm1.BitBtn2Click(Sender: TObject);
var sm_app, star_desk, oo_doc, args,nn,nnn: Variant;
begin
nn:='f:/met/new/2050_kat.xlt';
nnn:='file:///C:/Test.xls';
sm_app:= CreateOleObject('com.sun.star.ServiceManager');
star_desk:= sm_app.CreateInstance('com.sun.star.frame.Desktop');
oo_doc:= star_desk.LoadComponentFromURL('file:///'+AnsiReplaceText(nn,'\','/'), '_blank', 0, VarArrayCreate([0, -1], varVariant));
args := oo_doc.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
oo_doc.StoreToURL (nnn, Args);

Говорит о НЕСВПАДЕНИИ ТИПОВ...

получилось...отвечаю для тех, кто столкнулся с этим


procedure TForm1.BitBtn2Click(Sender: TObject);
var sm_app, star_desk, oo_doc, par,nn,nnn,stru: Variant;
begin
nn:='f:/met/new/2050_kat.xlt';
nnn:='file:///C:/Test.ods';
sm_app:= CreateOleObject('com.sun.star.ServiceManager');
star_desk:= sm_app.CreateInstance('com.sun.star.frame.Desktop');
oo_doc:= star_desk.LoadComponentFromURL('file:///'+AnsiReplaceText(nn,'\','/'), '_blank', 0, VarArrayCreate([0, -1], varVariant));
par:=VarArrayCreate([0, 0], varVariant);
par[0]:=sm_app.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
par[0].Name:='OverWrite';
par[0].Value:=True;
oo_doc.StoreToURL (nnn, par);
end;