function CMySQLGetHostInfo (Handle: PMySQL): TString; external name 'mysql_get_host_info'; function MySQLGetHostInfo (Handle: PMySQL): TString; begin MySQLGetHostInfo := CString2String (CMySQLGetHostInfo (Handle)) end;
Obviously, the return type of CMySQLGetHostInfo is wrong (CString rather than TString).
Regards,
Adriaan van Os