🚀 go-pugleaf

thank you for your reply!
the reason I have it setup like this, is because I assign the pointers like
this:

Tempuser = new TUser();
Tempuser->pChat = &TUser::SendChat;
Tempuser->pData =  &TUser::SendData;
Tempuser->pdisconnect = &TUser::Disconnect;
Tempuser->pkick = &TUser::Kick;
Tempuser->pPass  = &TUser::ChangePass;
Tempuser->pPM  = &TUser::SendPM;

I change the Delphi code like you suggested:
type
  TSendMess = procedure (sb1:pchar;sb2:pchar) of object;safecall;
  TCommon = procedure()of object;stdcall;
  TCommon2 = procedure (sb1:pchar) of object;stdcall;
  TCommon3 = function (sb1:pchar):boolean of object;stdcall;

The parameters are now fine, which makes me think that there is still hope
for me ;) Another problem has occurred though. When I call the pChat
function from the DLL, the 'this' pointer in the C++ function pChar is
pointing is equal to NULL, but when I check the object on the DLL side,
everything seems fine.

//Delphi Side
  type PUser = ^TUser;
function Connect(User: PUser): integer;stdcall;
begin
User^.pChat('Test','123');
result = true;
end;
//C++ side
void __stdcall TUser::SendChat(const char* sFrom,const char* sMessage)
{
this->Socket->Send("<" + AnsiString(sFrom) + "> " + AnsiString(sMessage) +
"|");
}

Any thoughts?

thank you =)

Seabass