Ayuda con Funcion dentro de DLL

[n03l]

saludos...
Estoy creando una DLL y e seguido como explica la siguiente web
http://www.ajpdsoft.com/modules.php?...rticle&sid=261
y todo bien

El problema que tengo esq quiero crear una funcion que devuelva un resultado string almacenado en la DLL y e creado la siguiente funcion en la DLL

Código Delphi [-]
function serial() : String; stdcall; 
var ClaveP: String; 
begin 
ClaveP:='MiClave123'; 
Result:=clavep; 
end;

luego cuando intento llamar la funcion desde delphi asi

Código Delphi [-]
Edit1.Text:=serial;

me dice [Error] Unit1.pas(90): Not enough actual parameters

y si lo pongo asi

Código Delphi [-]
Edit1.Text:=serial('');

me dice [Error] Unit1.pas(90): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

o tambien podria ser que yo almacene una variable string en la dll y la lea desde delphi
saludos a todos y espero una ayudita....