Developing.ru

ругается на процедуре памагите в написании программы
procedure TForm1.Button1Click(Sender: TObject);
var
temp, bigst, pstst, smst:string;
i:integer;
begin
bigst:=edit3.Text; //строка где ищется
pstst:=edit2.Text; //строка вставляется
smst:=edit1.Text; //стро поиска
temp:=''; //временная строка
i:=pos(smst,bigst);
while i>0 do begin
temp:=temp+copy(bigst,1,i-1)+pstst+copy(bigst,i,1);
delete(bigst,1,i);
i:=pos(smst,bigst);
end;
edit4.texT:=temp; //содержит готовую строку
end;

Ничего не ругается, процедура синтаксически верна. Если смысл процедуры - заменить в строке одну подстроку на другую, надо перед выводом написать
temp:=temp+bigst