Dein Code macht auch keinen Sinn. Du versuchst Parameter zu setzen, den es ja nicht gibt.
Versuch mal:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Adoquery.sql.Text := 'select feld8 from Test where ID = ID';
AdoQuery.Parameters.ParamByName('ID').Value := Memo.Text;
AdoQuery.Open;
end;