vielleicht nicht auf den ersten, aber auf den 2. Blick ersichtlich aus meinem 2. Beispiel:
Delphi-Quellcode:
var FVergleich : String; // zur besseren Unterscheidbarkeit "F" vorangestellt
begin
ADOQuery1.SQL.Clear;
// ... Statement mit Add zusammenbauen un dann:
ADOQuery1.SQL.Add('where FeldName = :Parameter');//Prinzip:Doppelpunkt+Bezeichner=Parameter
// für Dein konkretes Beispiel:
ADOQuery1.SQL.Add('where PeronenID = :PVergleich'); // Parameter heisst "PVergleich"
ADOQuery1.Prepare;
ADOQuery1.ParamByName('PVergleich').AsString := FVergleich;// Wert an Parameter übergeben
ADOQuery2.ExecSql // wenn Update- oder Insert-Befehl oder:
ADOQuery2.Open // wenn Select-Befehl
end;