Hola
siempres que crees alguna dll , o intentes llamar a alguna funcion que se encuentra en una dll , no puedes usar tipos strings , has de usar pchars.
Código Delphi
[-]function TripleDes(dato,contrasenia : pchar;accion:boolean):string; stdcall;
y para llamar a la funcion , puedes forzar a pchar .
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
memo2.Text := TripleDes(pchar(memo1.Text),pchar(edit1.text),true);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
memo2.Text := TripleDes(pchar(memo1.Text),pchar(edit1.text),false);
end;