[Timur]

Код:

procedure TForm1.sButton1Click(Sender: TObject);
var tel,data,satr:string;
begin
        if (midstr(sMaskEdit1.Text,1,1)='7') and (Length(sMaskEdit1.Text)=9) then
        begin
                if sMemo1.Text<>'' then
                begin
                        tel:=MidStr(sMaskEdit1.Text,1,3)+MidStr(sMaskEdit1.Text,5,2)+MidStr(sMaskEdit1.Text,8,2);
                        WebBrowser1.Navigate('http://60.60.60.60:7575/m.asp?n='+tel+'&m='+sMemo1.Text+'');
                end else
                begin
                        Application.MessageBox('Введите текст!','Ошыбка');
                        exit;
                end;
        end else
        begin
                Application.MessageBox('Номер не правельно!','Ошыбка');
                exit;
        end;
end;

Admin: Пользуемся тегами!