Delphi - Formulardaten mit IdHTTP.Post senden

Ziel Script login.php:
<?php
	$username = htmlspecialchars($_POST['username']);

	if (isset($username)){
		echo "Hallo $username. Wie geht es dir?";
	}
	else{
		echo "Variable nicht gesetzt";
	}
?>
Zugeh�riger Delphi Code:
procedure TForm4.Button1Click(Sender: TObject);
var
  data: TStringList;
  s: String;
begin
  data := TStringList.Create;
  try
    data.Values['username'] := 'Erwin';
    try
      s := IdHTTP1.Post('http://www.michael-puff.de/login.php', data);
      ShowMessage(s);
    except
      on E: Exception do
        ShowMessage('Fehler: ' + E.Message);
    end;
  finally
    data.Free;
  end;
end;

2012-01-26T23:14:42 +0100, mail[at]michael[Bindestrich]puff.de