if not Query.Active then Exit; if Query.IsEmpty then Exit; if Query.RecNO = 1 then ShowMessage('First'); if Query.RecNO = Query.RecordCount then ShowMessage('Last');
if not Query.Active then Exit; if Query.IsEmpty then Exit; if Query.bof then ShowMessage('First'); if Query.eof then ShowMessage('Last');
if Query.IsEmpty then Exit;
if Query.RecNO = 1 then
ShowMessage('First');
if Query.RecNO = Query.RecordCount then
ShowMessage('Last');
if Query.IsEmpty then Exit;
if Query.bof then
ShowMessage('First');
if Query.eof then
ShowMessage('Last');