[DCC Error] - [DCC Error] (376): E2066 Missing operator or semicolon

04/12/2015

1

Boa Tarde Galera, minha pergunta pode ser um tanto quanto boba, porem sou um programador iniciante..
a minha pergunta é: o que tem de errado nessa linha de código? pois não esta permitindo compilar!

procedure TFormPaciente.eIdKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
xRetorno : String;
begin
if key = vk_escape Then BtSair.Click;
// Consulta se o registro já existe no Banco de Dados
if (Key = Vk_Return) or (key = vk_Tab) then
Begin
if eID.Text=EmptyStr then
Begin
eID.Text:=IntToStr(Sequencial('PACIENTE','ID')); <--- (O erro se da nessa linha)
End;
xRetorno:=RetornaCampo(iTabela,'ID','ID='+QuotedStr(eID.Text));
if xRetorno=EmptyStr then
Begin
eID.Text:=IntToStr(Sequencial('PACIENTE','ID'));
PreparaInsercao;
End
Else
Begin
PreparaEdicao;
End;
End;

if (KEY = VK_F12) and (Shift = [ssCtrl]) then
//if (Key = Vk_F11) then
Begin
if eID.Text=EmptyStr then
Begin
eID.Text:=IntToStr(Sequencial(iTabela,'ID'));
PreparaInsercao;
End;
End;
Responder