Erro na Linha de Exclusão

Ola Pessoal to com o seguinte problema numa rotina de Exclusão, deem uma olhada, nao consigo achar o erro.

procedure TForm1.btnExcluirClick(Sender: TObject);begin  if messageBox(handle, 'Deseja realmente EXCLUIR o Registro',  mb_IconInformation + mb_YesNo) = mrYes Then  Table1.Deleteend;

Valeu...Érico