// probiers mal damit

fLoad(vPfad)
{ var v,vOK,vFile,vDoc1,vDoc2,vBits,vMat,vObj;
 //
 vFile->SetFullString(vPfad);
 if (!GeFileExist(vFile,FALSE)) return FALSE;
 //
 vDoc1=GetActiveDocument();
 vBits=vDoc1->GetAllBits();
 vOK=LoadDocument(vFile);
 if (!vOK) return FALSE;
 //
 vDoc2=GetActiveDocument();
 vMat=vDoc2->GetFirstMaterial();
 if (vMat)
 { while (vMat)
  { vDoc1->InsertMaterial(vMat->GetClone(),NULL);
    vMat=vMat->GetNext();
 }}
 vObj=vDoc2->GetFirstObject();
 if (vObj)
 { while (vObj)
  { vDoc1->InsertObject(vObj->GetClone(0),NULL,NULL);
    vObj=vObj->GetNext();
 }}
 vDoc2->Remove();
 vDoc2=NULL;
 vDoc1->SetAllBits(vBits);
 return TRUE;
}