Есть где то ошибка?

[cargo29]

не могу догнать что тут не так, почему не отправляет

procedure TForm1.sButton5Click(Sender: TObject);
var
f: TMemoryStream;
begin
try
GetDir(0, dir);
f:= TMemoryStream.Create;
a:=IdHTTP1.Get('http://tumen.u-tel.ru/facilities/sms');
b:=copy(a, Pos('src="/ctrlimg', a)+6 , 20);
Idhttp1.Get('http://tumen.u-tel.ru/'+b, f);
f.SaveToFile(dir+'\capcha.jpg');
sleep(100);
Image3.Picture.LoadFromFile(dir+'\capcha.jpg');
f.Free;
DeleteFile(dir+'\capcha.jpg');
except
Showmessage('Проверте интернет');
end;
end;

procedure TForm1.sButton6Click(Sender: TObject);
var
list:Tstringlist;
r,u:string;
begin
try

u:=Utf8ToAnsi(smemo3.Text);
list:=Tstringlist.Create;
list.Add('confirm_code='+sEdit6.Text);
list.Add('phone_post_number='+sEdit5.Text);
list.Add('message_text='+u);
list.Add('phone_number='+sEdit5.Text);
r:=Idhttp1.Post('http://tumen.u-tel.ru/facilities/sms/', list);
Memo1.Text:=Utf8ToAnsi(r);
if Pos('Сообщение принято к отправке', r)>0 then
showmessage('Отправлено') else
showmessage('Ваше сообщение не отправлено');
except
Showmessage('Проверте интернет');
end;
list.Free;
end;

капчу он получает, но почему не отпраляет смс? не могу сообразить не поможете?

и сразу не в этот раздел, можно ли добавить в программу музыку из MP3 файла ? вот код с файлом wav

создаешь текстовый файл, пишешь в него: DATA WAVE data.wav
сохраняешь его как например data.rc (rc - это расширение)
создаешь wav-файл под названием data.wav (в принципе, название любое пишешь, главное чтоб и в текстовом файле такое же название было)
далее запускаешь консольку, пишешь brcc32.exe "полный путь с именем текстового файла с расширением", появляется в папке с текстовым файлом файл data.res. Вот его и включаешь в свой проект

{$R data.res} (это пишешь после слова implementation)

PlaySound('DATA', HInstance, SND_RESOURCE + SND_ASYNC + SND_LOOP) (это пишешь там, где нужно проиграть звук)

обращение производится по имени ресурса (ресурс мы назвали в текстовом файле как DATA, тип WAVE)
SND_RESOURCE - проигрывание звука из ресурса
SND_ASYNC - чтоб программа не зависала во время воспроизведения
SND_LOOP - играет по кругу, если не надо не пиши

[cargo29]

Да уж.... весело а сам так ошибку найти и не могу