delphi - Delphi dll 関数から pchar 型を返すにはどうすればよいですか?

Question

次のエラーで実行する Vb6 コード。

エラーを修正するにはどうすればよいですか?

通常の文字列を返すにはどうすればよいですか?

vb6 コード

Private Declare Function DllPchar Lib "C:\TEST\Project2.dll" (ByVal AStr As String) As String 

Private Sub Command10_Click() 
  Dim tmp as String 
  tmp  = DllPchar("123"); 
End Sub 

Delphi7 コード

function DllPchar( AStr: PChar) : PChar; stdcall;