请问怎样在表中做查询？

Question

例如我要在表Class.db的ClassID字段中查找有无指定的记录，程序如下：
var
  ClassID, Command : String;
begin
  ClassID := Trim(Edit2.Text);
  Query1.SQL.Clear;
  Command := 'Select * From Class.db Where ClassID = ' + '''' + ClassID   + '''';
  Query1.SQL.Add(Command);
  Query1.PrePare;
  Query1.Open;
  if 找到 then
    MessageDLG('该班级已存在！', MTWarning, [MBOk], 0);
  end;
那么请问在程序中的“找到”处应该怎样写条件呢？这段代码有何不妥或不正之处呢？谢谢！

Answer 1

if not Query1.Eof then
    MessageDLG('该班级已存在！', MTWarning, [MBOk], 0);
  end;

Answer 2

if form1.Query1.RecordCount>=1 then