I have converted the headers but im having strange problems :?

with the dynamic linking i get error on mpg123_new (the program closes)

with static linking i get error on mpg123_info (the program closes)

dynamic linking
http://pastebin.com/m2f53c130

static linking
http://pastebin.com/m47e4f72b

code
Code:
var
  error : Longint;
  mp3handle : Pmpg123_handle;
  v1 : Pmpg123_id3v1;
  v2 : Pmpg123_id3v2;
  info : Tmpg123_frameinfo;
  s : PChar;

function checkerror : Boolean;
begin
  Result := mpg123_errcode(mp3handle) = 0;
  Writeln(mpg123_strerror(mp3handle));
end;

begin
  if mpg123_init <> mpg123_ok then Halt;
  s &#58;= mpg123_decoders&#40;&#41;^;
  mp3handle &#58;= mpg123_new&#40;s,@error&#41;;
  checkerror;
  mpg123_open&#40;mp3handle,'mp3.mp3'&#41;;
  checkerror;
  v1 &#58;= new&#40;Pmpg123_id3v1&#41;;
  v2 &#58;= new&#40;Pmpg123_id3v2&#41;;
  mpg123_info&#40;mp3handle,@info&#41;;

  mpg123_id3_&#40;mp3handle,v1,v2&#41;;
  checkerror;
  mpg123_close&#40;mp3handle&#41;;


  mpg123_exit;
  Readln;
end.