serial von mysql db abfragen

[madfighter04]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
    res: TMemoryStream;
    ress: string;
    p: PChar;
begin
   p := PChar(ress);
   res := TMemoryStream.Create;
   idhttp1.Get('xxx?serial=1233', res);
   SetLength(ress, res.Size);
   res.Read( p, res.Size);
   edit1.Text := ress;
end;

kriege in edit1.text keep ausgegeben obwohl der name peter ist hier nochmal der phpcode

Delphi-Quellcode:

<?php

mysql_connect("localhost",
"xxxx","xxx") or die
("Keine Verbindung moeglich");

mysql_select_db("xxxxx") or die
("Die Datenbank existiert nicht");

$serial = $_GET["serial"];

$abfrage = "SELECT * FROM Kunden WHERE id Like '$serial'" or die
("Existiert nicht");

$ergebnis = mysql_query($abfrage);
  
while($row = mysql_fetch_object($ergebnis))
    {
    echo $row->Name;
    
}
?>