No Delphi existe a rotina Clipboard.Astext
Existe alguma função equivalente no Forms
A minha QUERY é a sequinte:
Insert Into atendimento_amb (unid_codigo,atam_numero_atendimento_A,atam_ano_atendimento,
atam_acidente_trabalho,atam_hora_atendimento,
caat_tipo_atendimento,taam_codigo,mesa_codigo,paci_matricula,
natpro_codigo,conv_codigo,
atam_data_cadastro, ATAM_CANCELADO) Values
('0024848',:fora.txt_numero,TO_CHAR(SYSDATE,'YYYY'),
:fora.chk_Acidente,TO_DATE(SYSDATE),
:FORA.TXT_acao,:FORA.TXT_ATEND,:FORA.TXT_MOTIVO,:PACIENTES.PACI_MATRICULA,
:FORA.TXT_NATUREZA,:FORA.TXT_CONVENIO,
to_date(sysdate),'N');