[JCarlosas]

Empezado por Lord-G

procedure TForm1.Button1Click(Sender: TObject);
begin
zquery1.Close;
zquery1.SQL.Clear;
zquery1.SQL.Text := 'insert into clientes (nombre,telefono,direccion) values (:nombre, :telefono, :direccion)';
zquery1.ParamByName('nombre').AsString :=edit1.text;
zquery1.ParamByName('telefono').AsString :=edit2.text;
zquery1.ParamByName('direccion').AsString :=edit1.text;
zquery1.ExecSQL;
end;

*******************************

Ahora Con MyDac lo hago asi

procedure TForm1.Button1Click(Sender: TObject);
begin
myquery1.Close;
myquery1.SQL.Clear;
myquery1.SQL.Text := 'insert into clientes (nombre,telefono,direccion) values (:nombre,:casa,:direccion)';
myquery1.ParamByName('nombre').AsString := edit1.Text;
myquery1.ParamByName('telefono').AsString :=edit2.Text;
myquery1.ParamByName('direccion').AsString :=edit3.Text;
myquery1.Execute;
end;

De todas formas chequea tambien lo que te resalte en negritas.
Saludos
JCarlos