Передача ссылок на строку в DLL

[Zomboss]

Здравствуйте. Ковыряюсь с этим не первый день, но я с дельфи почти не работаю, так что нуждаюсь в помощи знатоков.
У меня есть dll и инструкции к ней на C++.
Мне нужно вызвать её из дельфи.

typedef int (__stdcall *GetInfo)(char * token, 
	char ** login, char ** pass);

int _tmain(int argc, _TCHAR* argv[])
{
	bool freeResult, runTimeLinkSuccess = false;
	HINSTANCE dllHandle = NULL;
	GetInfo getInfoPtr = NULL;

	//Load the dll and keep the handle to it
	dllHandle = ::LoadLibrary(L"c:\\Lib\\Lib.dll");

	// If the handle is valid, try to get the function address. 
	if (NULL != dllHandle)
	{

		getInfoPtr = (GetInfo)GetProcAddress(dllHandle, "getInfo");
		if (runTimeLinkSuccess = (NULL != getInfoPtr))
		{
			char* token = "676f5489269b215a7ce1c453bb41f1aa"; // <== token goes HERE

			char* login = new char[256];
			char* pass = new char[100];

			int retVal = getInfoPtr(token, &login, &pass);
			

			delete[] login;
			delete[] pass;
		}


		//Free the library:
		freeResult = FreeLibrary(dllHandle);
	}

	return 0;
}

Как видно, суть в том, что в функцию отправляется одна строка, а обратно по ссылке возвращается 2 другие. Память для этих строк выделяется до отправки.
В с++ код и библиотека работают (проверил).
В дельфи я пытаюсь писать так:

function getInfo(token: PAnsiChar; var nick, pass: PAnsiChar): integer; stdcall; external 'Lib.dll';

procedure TDialogLogin.OnShow;
var
  token : AnsiString;
  pass : PAnsiChar;
  login : PAnsiChar;
 
begin
  token := '123';
    GetMem(pass,100);
    GetMem(login,256);
 
  getInfo(PAnsiChar(token), login, pass);
 
end;

Длл реагирует, но возвращает код, говорящий, что выделено недостаточно памяти.
Я пробовал использовать объявление в таком виде

type PPAnsiChar = ^PAnsiChar;
function getInfo(token: PAnsiChar; login, pass: PPAnsiChar): integer; stdcall; external 'Lib.dll';

Результат тот же - код недостатка выделенной памяти. Я пробовал выделять не 256, а 2560000... и пока память не кончится - результат тот же.
Я пытался объявить массив вида pass : array[0..256] of AnsiChar и передать его как @pass или @pass[0] или Addr(pass) или Addr(pass[0]) - получаю эксепшен access violation
Итак, вопрос: ЧЯДНТ, как правильно объявить эту функцию, как правильно скормить ей указатели на строки и как для них правильно выделить память?

[kutani]

FillChar(login,256,0);
FillChar(pass,100,0);
getInfo(PAnsiChar(token), @login[0], @pass[0]);

[Zomboss]

access violation к нулям

[Zomboss]

О! А мысль-то была правильная. Что бы я там не выделял ей не хватало памяти, потому что размер памяти эта хрень определяла считая пробелы.
Нужно было заполнить строку пробелами.

[kutani]

...пробелы, вряд-ли. Символы, тоже вряд-ли. Если у вас есть исходники самой либы или сама либа, я мог бы ее погонять и в студии и под Delphi и найти проблему.