Anasazi

Замени idHTTP на NetHTTPClient в коде изменения незначительные и будет все нормально.

У меня подобная хрень была. 
Пришлось совсем отказаться от Tedit и Tmemo. Заменил на Tlabel, при клике открываю диалоговое окно с полем ввода.

У меня подобная хрень была. 
Пришлось совсем отказаться от Tedit и Tmemo. Заменил на Tlabel, при клике открываю диалоговое окно с полем ввода.

Можете скинуть куда-нибудь файл push.php с внесенными вами изменениями?

Можете скинуть куда-нибудь файл push.php с внесенными вами изменениями?

хех, весело) а вы свой серверный ключ и id отправителя не стали ставить?)
и кто-то не дружит с отправкой запросов в потоке

А если внутри скрипта есть проверка пароля? Добавь поля login и pass и будет нормально.

Вот примерно так
PostData:= TStringList.Create;
 
  try
    // Создаём подключение
    IdHTTP1 := TIdHTTP.Create;
   
// Указываем данные для отправки
    PostData.Clear;
    postdata.Add('text_push=' + Memo1.Text);
    postdata.Add('action=send_push');
 
    // Отправляем запрос
    Result:=IdHTTP1.Post(DOMAIN + 'push.php', postdata);

   finally
   end;
Потом можешь куда-нибудь отобразить результат. showmessage(result);

Вот примерно так
PostData:= TStringList.Create;
 
  try
    // Создаём подключение
    IdHTTP1 := TIdHTTP.Create;
   
// Указываем данные для отправки
    PostData.Clear;
    postdata.Add('text_push=' + Memo1.Text);
    postdata.Add('action=send_push');
 
    // Отправляем запрос
    Result:=IdHTTP1.Post(DOMAIN + 'push.php', postdata);

   finally
   end;
Потом можешь куда-нибудь отобразить результат. showmessage(result);

Не трогай TWebBrowser1. Делай все через пост-запросы. Пример нужен?

У  меня была такая хрень, правда делал все не по статье Zuby, а по статье Александра Бирюкова, она тут тоже где-то есть на форуме. Пуш отправлял через обычную строку браузера http://пример.ru/push.php?action=send-push&text=МЧС предупреждает: сильные ливни! 
Заметил такую хрень, что фантомные пуши отправлялись в момент синхронизации chrome. Или когда заходил в свою учетку chrome и на другом компе и chrome начинал подтягивать журнал пароли и прочее.

если вам не понятен этот код
For i:=0 to List.Count-1 do with List.Items[i] do begin Position.Y:=Position.Y+0.5; end; то его можно переписать следующим образом
for i:=0 to List.Count-1 do     List.Items[i].Position.Y := List.Items[i].Position.Y+0.5;  
UPDATE: http://delphicode.org/delphi/with.htm