[Uniq!]

Что значит на прямую? так?

Код:

Query.Sql.Text := 'Insert into...';
Query.ExecSQL;

Я сейчас вообще в ADOTable реализовал всё. Ибо приложение несложное и особых функций в нём не предполагается.