Uses DelphpUnit...;

...

Var
  Form1: TForm1;
  HttpPost1: THttpPost;


{----------------------------------------------------------------}
Procedure TForm1.FormCreate(Sender: TObject);
Begin
  { Création dynamique du composant }
  HttpPost1 := THttpPost.Create(self);
  HttpPost1.URL := 'http://127.0.0.1/connect.php';
  HttpPost1.ProxyPort := '80';
  HttpPost1.MaxTimeOut := 10000;
End;


{----------------------------------------------------------------}
Procedure TForm1.Button1Click(Sender: TObject);
Begin
  { Préparation de la requête http }
  HttpPost1.ResetPost;
  HttpPost1.AddPost('pseudo', 'sub0');
  HttpPost1.AddPost('email', '');
  HttpPost1.AddPost('mdp', 'test');

  { Post de la requête http }
  HttpPost1.StartPost;

  { Boucle d'attente de fin de réception }
  Repeat 
    Application.ProcessMessages;
    Sleep(50);
  Until (HttpPost1.IsCompleted);

  { Affichage du résultat (message d'erreur) }
  If (HttpPost1.StringError <> '') Then
    ShowMessage(HttpPost1.StringError) 
  Else
  { Affichage du résultat du formulaire }
  If (HttpPost1.StringResult <> '') Then
    ShowMessage(HttpPost1.StringResult);
End;

<?php
$pseudo=''; If(isset($_POST['pseudo'])) $pseudo=$_POST['pseudo'];
$email=''; If(isset($_POST['email'])) $email=$_POST['email'];
$mdp=''; If(isset($_POST['mdp'])) $mdp=$_POST['mdp'];

if(empty($pseudo)) 
  die('Pseudo manquant!');
else
  die(chr(149).chr(32).'Bonjour '.$pseudo.'!');
?>

$res=Verifie_Syntax($pseudo, $cst['nbr'].$cst['min']);
if(!empty($res))
  die('Votre pseudo contient un caractère interdit ('.$res.').');

Require_once('connect.php');

if(strtolower($_SESSION['pseudo'])!=strtolower($cfg['db_login']))

  die('Vous n\'êtes pas autorisés à utiliser cette page. '.
      'Seul le pseudo «'.$cfg['db_login'].'» est autorisé.');

Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TLogForm, LogForm);
Application.Run;

AutoStart: Boolean = False;     { Lancement automatique au démarrage }
AutoValid: Boolean = False;     { Formulaire auto validé si pré-rempli }
ModalForm: Boolean = True;      { Le dialogue est modal avec fsStayOnTop }
AutoCenter: Boolean = True;     { Le dialogue se centre au milieu de la form }

HttpPost1.ResetPost;
HttpPost1.AddPost('act', 'getbase');
If (LogForm.MyHttpPost(True, True) = False) Then Exit;
StrExplode(HttpPost1.StringResult, #0, ComboBox1.Items);
ComboBox1.ItemIndex := 0;

Var Structure: TStrings;

Var
  ptable,                       { Nom de la table pour la requête SQL } 
  pbegin, pcount,               { Paramètres LIMIT pour la requête SQL } 
  porder, pdesc: ShortString;   { Paramètres ORDER BY pour la requête SQL }

...

HttpPost1.AddPost('act', 'getdata');
HttpPost1.AddPost('table', ptable);
HttpPost1.AddPost('begin', pbegin);
HttpPost1.AddPost('count', pcount);
HttpPost1.AddPost('order', porder);
HttpPost1.AddPost('desc', pdesc);

Var pwhere: String;
    x, index: Integer;
...

  pwhere := ''; 
  For x := 1 To (Structure.Count Div 2) Do Begin
    If (pwhere <> '') Then pwhere := pwhere + ' AND '; 
    pwhere := pwhere + Structure[(x - 1) * 2];
    index := ((Y - 1) * (Structure.Count Div 2)) + (x - 1); 
    pwhere := pwhere + '=''' + AddSlashes(Donnees[index]) + '''';
  End; 
  pwhere := 'WHERE (' + pwhere + ')';