[keeper.ok]

Решил написать программу для передачи данных в скрипт на веб-сервере.
Помогите исправить код, прога не пашет, уже час сижу...
Отдельно написал для запроса капчи, всё получилось, а вот с этим проблемы((

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, IdAntiFreezeBase, IdAntiFreeze,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, pngimage;

type
  Tname = class(TForm)
    IdHTTP1: TIdHTTP;
    IdAntiFreeze1: TIdAntiFreeze;
    name: TEdit;
    tel: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  name: Tname;

implementation

{$R *.dfm}

procedure Tname.Button1Click(Sender: TObject);
var
PostData:TStringList;
begin
try
PostData:=TStringList.Create;
PostData.Add('name=keeper');
PostData.Add('tel=8800000000');
IdHTTP1.Post('http://zverteam.ru/php/update.php',PostData);

    Memo1.Text:=IdHTTP1.Post('http://zverteam.ru/php/update.php', PostData);

  finally

PostData.Free;
end;
end;

end.

Вообще никаких реакций на нажатие кнопки.
Ссылки рабочие, сама форма находится по адресу _http://zverteam.ru/php

[NumLock]

при нажатии на Button1 в Memo1 появляется "Hnya":

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  stringlist: TStrings;
begin
  stringlist:=TStringList.Create;
  try
    stringlist.Add('name=keeper');
    stringlist.Add('tel=8800000000');
    Memo1.Text:=IdHTTP1.Post('http://zverteam.ru/php/update.php', stringlist);
  finally
    stringlist.Free;
  end;
end;

[keeper.ok]

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

при нажатии на Button1 в Memo1 появляется "Hnya":

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  stringlist: TStrings;
begin
  stringlist:=TStringList.Create;
  try
    stringlist.Add('name=keeper');
    stringlist.Add('tel=8800000000');
    Memo1.Text:=IdHTTP1.Post('http://zverteam.ru/php/update.php', stringlist);
  finally
    stringlist.Free;
  end;
end;

Да, если появляется "Hnya" значит данные добавлены.

Странно, у меня Мемо1 не меняет текст((