Send Data HTTP Login

Ziel Script login.php:

<?php

$username = htmlspecialchars($_POST['username']);

if (isset($username)){

echo "Hallo $username. Wie geht es dir?";

}

else{

echo "Variable nicht gesetzt";

}

?>

Unit1 :

uses ExtCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP
  
//
  
procedure TForm1.Button1Click(Sender: TObject);
var
  data: TStringList;
  s: String;
begin
  data := TStringList.Create;
  try
    data.Values['username'] := 'hackbard';
    try
      s := IdHTTP1.Post('http://www.Hallo-Welt.de/login.php', data);
      ShowMessage(s);
    except
      on E: Exception do
        ShowMessage('Fehler: ' + E.Message);
    end;
  finally
    data.Free;
  end;
end;