USANDO IF

O QUE ESTÁ ERRADO?

procedure TDataModule1.ADOTable1BeforePost(DataSet: TDataSet);
begin
//TESTANDO SE DEFICIENTE
IF (ADOTable1PortDeficiencia.AsString<>'NÃO') THEN
BEGIN
ShowMessage('Digite a deficiência');
abort;
END
else IF(ADOTable1TipoDeficiencia.AsString<>'') then
BEGIN
showmessage ('Registro salvo com sucesso');
ADOTable1.Post;
//ShowMessage(''Aguarde o Processamento'');
end;
END;