IdHTTP.POST übergibt nicht richtig Variabeln

[Faramir]

Ich habe mir zwei Quellcodes aus dem Netz gesaugt nachdem ich an der Delphi-Hilfe (wieder einmal) gescheitert bin.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  data: TIdMultiPartFormDataStream;
  zwei: string;
begin 
  data := TIdMultiPartFormDataStream.Create; 
  try
    { add the used parameters for the script }
    zwei := InttoStr(2);
    data.AddFormField('answer',zwei);

    { Call the Post method of TIdHTTP and read the result into TMemo }
    Memo1.Clear;
    Memo1.Lines.Text := IdHTTP1.Post('http://www.meineinternetseite.de/script.php', data);
  finally
    data.Free; 
  end;
end;



procedure TForm1.Button2Click(Sender: TObject); 
var 
  Params: TIDMultipartFormDataStream; 
  aStream: TMemoryStream; 
begin 
  Params := TIDMultipartFormDataStream.Create;
  Params.AddFormField('var1','1');


  aStream := TMemoryStream.create;
  IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded'; 

  try 
    with IdHTTP1 do
    begin
      try
        IdHTTP1.Post('http://www.meineinternetseite.de/script.php', Params,
          aStream);
      except
        on E: Exception do
          showmessage('Error encountered during POST: ' + E.Message); 
      end; 
    end;
    aStream.WriteBuffer(#0' ', 1); 
    showmessage(PChar(aStream.Memory)); 
  except
  end;

end;

Ich möchte einer PHP Seite Variablen über die Methode POST schicken. Der Variablenwert ist jedoch immer leer!
Weiß jemand wodran das liegen könnte?
(Beide Methoden funktionieren nicht )

Danke schon mal im vorraus.