Einfach ohne "implementation", dann geht das:
Delphi-Quellcode:
library Project1;
uses
ShareMem,
SysUtils,
Classes;
{$R *.RES}
type
TMyRec = record
x : integer;
y : integer;
title : String;
end;
function GetLang(x,y:integer;title:string):string; stdcall;
begin
result:='test';
end;
begin
end.