Не открывается браузер

[TUberwer]

Сделал проверку на новую версию программы. Вот диалог появляется, и просит скачать новую версию, если нажимаешь ок, то открывается браузер с ссылкой.

begin
buttonSelected := MessageDlg('Версия программы устарела. Перейти на сайт для загрузки программы?',mtError, mbOkCancel, 0);
if buttonSelected = mrOk     then
begin
ShellExecute( Handle, 'Open', PChar(txt), nil, nil, SW_SHOWNORMAL);

end
else
begin
Application.Terminate;
end;
end;

Но при нажатии на Ok ничего не происходит, почему?

[grominfo]

Что находится в переменной txt ?

[TUberwer]

txt := Label9.Caption;

label9.Caption := 'http://pawno.ru/';

а вообще label9.caption загружается с интернета таким образом

Label9.Caption := HTMLURL.Text;

и в label9 действительно при старте программы вписывается ссылка.. я проверил

[grominfo]

Код рабочий, сейчас проверил

procedure TForm1.Button1Click(Sender: TObject);
var
 txt:string;
 buttonSelected:integer;
begin
txt:= 'http://pawno.ru/';
buttonSelected := MessageDlg('Бла бла бла',mtError, mbOkCancel, 0);
if buttonSelected = mrOk     then
 begin
    ShellExecute( Handle, 'Open', PChar(txt), nil, nil, SW_SHOWNORMAL);
  end
   else
     begin
      Application.Terminate;
     end;
 end;

Выводи значение txt на экран и смотри что у тебя там получается. Уверен, что у тебя там пусто

[TUberwer]

Сообщение от TUberwer

и в label9 действительно при старте программы вписывается ссылка.. я проверил

уже писал..

может из-за этого что-то не то ?

Label9.Caption := HTMLURL.Text;

[grominfo]

Повесь на кнопку мой код и проверь. Если браузер открывается, значит у тебя не ссылки в txt.

может из-за этого что-то не то ?

Label9.Caption := HTMLURL.Text;

Чё это вообще такое? Я не экстрасенс

[TUberwer]

блин, сорри, это моя промашка..
я просто txt присвоил значение label9, а потом только label'у присвоил ссылку

[grominfo]

Ну я тебе так сразу и сказал, что в переменной txt у тебя нет ссылки, причём в первом же ответе.

[TUberwer]

спс, + дал тебе