Beim Insert hast du
ParamByName('Note') vergessen.
Und zum Select nutzt du kein ExecSQL, sondern ein Open und Close
PS: Du brauchst kein Clear und Add zu verwenden, wenn du sofort alles in
Query.SQL.Text wirfst. (zumindest klappt das bei AnyDAC so, müsste bei ZEOS aber auch gehen)
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)