Ошибка в DLL

library dll;
 
uses
  SysUtils,
  Classes;
 
{$R *.res}
function ps(s: string): extended;stdcall;
var
  i,v,g,col: integer;
  str : string;
begin
str:='АОУИЕЭЮЯаоуеиэюя';
col:=0;
v:=length(s);
for g:=1 to length(str) do
begin
for i:=1 to v do
if s[i] = str[g]
then
Begin
  inc(col);
End;
end;
  result := (col*100)/v;
//   result := col
end;
 
 
 function cog(s: string):extended;stdcall;
var
  i,g,v,kol: integer;
  str: string;
begin
kol:=0;
str:='БВГДЖЗКЛМНПРСТФХЦЧШЩЬЪЫЙбвгджзклмнрпстфхцчщшыъь';
v:=length(s);
for g:=0 to length(str)-1 do
begin
for i:=0 to v-1 do
if s[i] = str[g]
then
Begin
  inc(kol);
End;
end;
  result := (kol*100)/v;
// result := kol;
end;
 
exports ps,cog;
 
begin
end.

unit Unit22;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm22 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label2: TLabel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    lbl: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form22: TForm22;
 
implementation
 
{$R *.dfm}
 function ps(s: string): extended; //вызываем библиотеку для кол-ва символов
stdcall;external 'dll.dll';
  function cog(s: string):extended; //вызываем библиотеку для удаления вхождений- тоесть , что бы удалить , то что есть в нашей строке  Впервом эдите
stdcall;external 'dll.dll';
procedure TForm22.Button1Click(Sender: TObject);
var
s:string[29];//на бум указала
begin
s:=edit1.Text; //считываем
 
if pagecontrol1.ActivePage= tabsheet1
then
begin
 label1.Caption:=FloatToStr(ps(s))+ '%' ; //используем нашу библ. вызываем тут
end;
 
if pagecontrol1.ActivePage= tabsheet2
then
begin
 lbl.Caption:=FloatToStr(cog(s)) +' %';
end;
 
 
 
end;
 
 
 
 
end.