如何在Delphi中获取TQuery的结果?

数据库

在数据库中运行以下查询时:

SELECT T.ID
FROM TABLA T
WHERE ID=3

结果:

No rows returned

现在我尝试在Delphi中显示消息“记录不存在”。

在表单中,我有一个组件TQuery调用qValidacion成功连接到数据库Oracle 11g。

尝试1

procedure TfPrueba.ButtonAceptarClick(Sender: TObject);
begin
    qValidacion.Close;
    qValidacion.SQL.Add('SELECT T.ID');
    qValidacion.SQL.Add('FROM TABLA T');
    qValidacion.SQL.Add('WHERE ID=3');
    qValidacion.Open;
    qValidacion.First;
    if (not qValidacion.Eof) then 
        begin
             ShowMessage('The record not exist'); //It Should display the message, but does not show
        end;
    qValidacion.SQL.Clear;
end;