Delphi + dll= Invalid Pointer Operator

[LEKA]

Что необходимо?
Необходимо, что бы из основной формы вызывались функции и процедуры в DLL.В основном сложные процедуры.

Что мы имеем?
Даже при созданий казалось бы простых функции и вызов их из формы, мы получаем ошибку 'Invalid Pointer Operator'

Исходник программы:
http://www.ifolder.ru/1819369

В чем проблема? Что я делаю не так..?

[mrandrey]

Иногда переводи что тебе делфи пишет (в начале твоей библиотеки):
Краткий перевод:
Если хочеш в качестве параметров или результатов передавать String? допиши в uses ShareMem иначе пользуйся типом PChar или ShortString.

...советую пользоваться вторым вариантом.

P/S: Не знаю что тебе за ошибки выкидывает, но мне выдал сообщение с ОК, а затем комп минуты на 3 ушел в ступор и весь проэкт вместе с делфи подвисли.

[LEKA]

Спасибо большое, только теперь у меня выдает Stack OverFlow

[mrandrey]

Вызов:
function LibFunction():ShortString stdcall; external 'project2.dll';
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(LibFunction());
end;

DLL:
uses
SysUtils,
Classes;
{$R *.res}
function LibFunction():ShortString;stdcall;
begin
result := 'Ok';
end;
exports
LibFunction;

begin
end.

У меня все работает, без ошибок
а Stack OverFlow - переполнение стека, может это не из-за вызова фуркции, а изза того что в ней происходит?

[LEKA]

Теперь проблема заключаеться в том что , при выхове функции проблем нет, а вот при выхове процедуры EAccessViolation = (( В чем моэет быть проблема??