Ok. Hab es gefunden. Die For Schleife lief einfach zu weit. Das dynm. Array 'Test' brauchte ich nicht zu neu zu dimensionieren.
Delphi-Quellcode:
for i := 0 to length(str) - 1 do begin
AsciiArray[i] := Ord(str[i + 1]);
end;
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
const str = 'Dies ist ein Test';
begin
i := 0;
test := myclass.myfunc(str);
for i := 0 to Length(test) do
self.Edit1.Text := self.Edit1.Text + IntToStr(test[i]);
end;