tpshop去后门:用vc调用delphi编写的动态库老是出现Access Violation这个错误

procedure TForm2.New1Click(Sender: TObject);
begin
PanelSamples.Visible:=false;
dl_ClearStack; // Deletes and frees all spectrums in stack. After this STackPointer=-1;
if dl_ShowEnginePanelModal=0 then // input interferogram to stack position 0
exit;
if CheckBoxShowGraph.Checked then
uDrawGraph(0,ChartInterferogram); // draws data (Interferogram) from stack position 0
if dl_GetSpectrumMode(0)=smInterferogram then // if data in position 0 are Interferogram mode (option dialog->Preferences->not "auto transform")
begin
dl_ToMode(0,smSpectrum); // converts data from stack position 0 (Interferogram) to Spectrum and stores it in position 1
if CheckBoxShowGraph.Checked then
uDrawGraph(1,ChartSpectrum); // draws data (Spectrum) from stack position 1
if CheckBoxSaveJCampAfterInput.checked then
uSaveJCamp(1); // saves Spectrum data from stack position 1
if CheckBoxShowJCAMPData.Checked then
uGetJCAMP_toMemo(1); // convertes data in stack pos 1 to JCamp text and shows in Memo
end else if dl_GetSpectrumMode(0)=smSpectrum then
// if data in position 0 are SPectrum.Option dialog->Preferences->"auto transform",
// after acquiring interferogram, data are transformed to Spectrum
begin
if CheckBoxShowJCAMPData.Checked then
uGetJCAMP_toMemo(0); // convertes data in stack pos 0 to JCamp and shows in Memo
if CheckBoxSaveJCampAfterInput.checked then
uSaveJCamp(0); // saves Spectrum data from stack position 0
end;
end;
这个是delphi调用的范例。
我用vc调用dl_ShowEnginePanelModal老是提示Access Violation，需要分配内存吗？