C++ DLL (Funktion) nach Delphi

[AJ_Oldendorf]

Hallo,
ich habe eine Frage zu folgender Deklaration einer Funktion in einer C++ DLL, welche ich ansprechen muss:

Delphi-Quellcode:

typedef char My_STRING;

Res_DWORD  Get_Error_Text ( 
    ERROR_T    *error,        // in 
    const My_STRING *language, // in 
    My_STRING    text[1024] );  // out

Im Delphi würde ich die dann wie folgt deklarieren:

Delphi-Quellcode:

type
  PERROR  = ^TERROR;   
  TERROR  = packed Record
    Long1 : LongWord; 
    Long2 : LongWord; 
    Byte1 : BYTE;     
    Byte2 : BYTE;    
    Byte3 : BYTE;     
  end;

function Get_Error_Text(aError: PERROR; aLanguage: String; out aErrStr: String): LongWord;stdcall;external 'ExterneDLL.dll';

Aufruf dann so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Const
  ErrLanguage = 'English';
var
  ErrClass  : LongWord;
  ErrStruct : TERROR;
  ErrStr    : String;
begin
  ErrClass := Get_Error_Text(@ErrStruct, ErrLanguage, ErrStr);
  ShowMessage(ErrStr);
end;

Mein Problem ist, dass in der Errorstruktur ein Fehler ansteigt aber mit meinem Aufruf bekomme ich immer in "ErrStr" nur ein LeerString geliefert. Könnt ihr mir sagen, wo das Problem besteht? ich vermute ein Fehler mit dem Datentyp String, dem Char und dem beschreiben des Parameters "ErrStr" beim Aufruf der DLL.