Namen von Liste zu Liste verschieben

[Delphiturbo]

Ich habe wieder meinen alten Code verwendet
Ich bekomme zwar keine Fehlermeldung
Es wird aber keine Daten gespeichert !

Delphi-Quellcode:

$q="SELECT * FROM liste1 WHERE name = $name"; //den Datensatz suchen
$result = mysql_query($sql); 

if( mysql_num_rows( mysql_query( "select * from liste1 where name='$name'" ) ) > 0 )
{
mysql_query( "insert into liste2(name,email,telefon,adresse) values('$name','$email','$telefon','$adresse')" );


$sql="DELETE FROM liste1 WHERE name = $name";//Datensatz anhand der ID löschen
 $result = mysql_query($sql); 
}
  //jetzt in Liste 2 einfügen
...