Исправление

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
StrPage,ssylka:string;
StrPage2,mess:string;
send:TstringList;
log:TstringList;
 
St:String;
 
Str:String;
 
begin
ssylka := 'http://forum.wen.ru/?p=4&w=htm';
log := TstringList.Create;
log.add('username='+Edit1.Text);
log.add('password='+Edit2.Text);
log.add('snd=Авторизация');
StrPage := idhttp1.Post(ssylka,log);
 
 
if pos ('logout',StrPage) <>0 then
 
 
begin
 
St:=IdHTTP1.Get('http://forum.wen.ru/?p=0&f=0&w=htm');
Delete(St,1,pos('new=1&amp;w=htm"><font color="#006f11">',St)+length('new=1&amp;w=htm"><font color="#006f11">')-1);
Delete(St,pos('</font></a><br/>',St),length(St));
 
 
               if StrToInt(St)>0 then
 
        begin
        Form2:= TForm2.Create(Application);
Form2.Caption:= 'Новое сообщение';
 
St:=IdHTTP1.Get('http://forum.wen.ru/?p=13&b=0&new=1&w=htm');
 
Delete(St,1,pos('</a></b><br/>',St)+length('</a></b><br/>')-1);
Delete(St,pos('<br/> <br/>',St),length(St));
form2.Label10.Caption := '0';
form2.Label10.Caption := St;
form2.Show;
        MessageBeep(mb_IconAsterisk);
        end
 
 
 
 
                else
        begin
 
        end;
 
                end
 
 
 
 
else
ShowMessage('неверный логин или пароль!');
log.Free;
 
 
end;

St:=IdHTTP1.Get('http://forum.wen.ru/?p=0&f=0&w=htm');
Delete(St,1,pos('new=1&amp;w=htm"><font color="#006f11">',St)+length('new=1&amp;w=htm"><font color="#006f11">')-1);
Delete(St,pos('</font></a><br/>',St),length(St));

begin
try
except
 St:=IdHTTP1.Get('http://forum.wen.ru/?p=0&f=0&w=htm');
 
Delete(St,1,pos('new=1&amp;w=htm"><font color="#006f11">',St)+length('new=1&amp;w=htm"><font color="#006f11">')-1);
Delete(St,pos('</font></a><br/>',St),length(St));
 
 end;