Ошибка.

[Bembi]

Мне нужно определить общие символы двух строк, но програма выдает ошибку
[Error] Unit1.pas(237): Undeclared identifier: 'Spsimv'

почему? помогите пожалуйста
вот текст:

procedure TForm1.Button2Click(Sender: TObject);// вивод общих 
//символов 2-ух строк
var
a,b,s12:string;

begin
//ввод значений в строки
a:=edit1.text;
b:=edit2.text;
//оределение общих символов
Spsimv(a,b,s12);
memo1.Text:=s12;
end;

procedure Spsimv(a,b:string; var s:string);// определение общих символов

var i,dlina,po,ps:integer;
begin
s:='';
dlina:=length(a);
for i:=1 to dlina do
begin
ps:=pos(a[i],B);
if ps<>0 then
begin po:=pos(a[i],s);
if po=0 then s:= s+a[i];
end;
end;
end;

 

[hosm]

перенести procedure Spsimv выше procedure TForm1.Button2Click(Sender: TObject);

 

[ierofant]

И ещё вздохни глубже, успокойся, зачем столько постов-то?