delphi中DBGrid与memo问题，其中数据库用的是SQL Server 2000

大概思路，找出至少一门不及格的数据记录，把全部及格的给屏蔽了，减少工作量。
循环逐条来输出到memo
大概写，根据实际控件的名字自己改吧。
//声明变量；
var
sqlstr,temp_str:string;

//解释：qry1是ADOquery，

sqlstr:='select * from 表名 where (数学<60)or(历史<60)or(英语<60)or(化学<60) ';
with qry1 do
begin
sql.clear;
sql.add(sqlstr);
sql.open;
first;
memo1.clear;

while not eof do
begin
temp_str=fieldbyname('姓名').asstring;

if fieldbyname('数学').asinteger<60 then
temp_str=temp_str+' 数学不及格';

if fieldbyname('历史').asinteger<60 then
temp_str=temp_str+' 历史不及格';

if fieldbyname('英语').asinteger<60 then
temp_str=temp_str+' 英语不及格';

if fieldbyname('化学').asinteger<60 then
temp_str=temp_str+' 化学不及格';

memo1.lines.add(temp_str);
next;
end;

end;
//没有测试，希望有帮助。

var s:string;
begin
Memo1.Clear;
while (not ADOQuery1.Eof) do
begin
if (ADOQuery1.FieldByName('姓名').Text<>'') then
begin
s:=ADOQuery1.FieldByName('姓名').Text+':';
if StrToInt(ADOQuery1.FieldByName('数学').Text)<60 then
begin
s:=s+'/数学不及格';
end;
if StrToInt(ADOQuery1.FieldByName('历史').Text)<60 then
begin
s:=s+'/历史不及格';
end;
if StrToInt(ADOQuery1.FieldByName('英语').Text)<60 then
begin
s:=s+'/英语不及格';
end;
if StrToInt(ADOQuery1.FieldByName('化学').Text)<60 then
begin
s:=s+'/化学不及格';
end;
end;
if (s<>ADOQuery1.FieldByName('姓名').Text+':') and (s<>'') then
Memo1.Lines.Add(s);
s:='';
ADOQuery1.Next;
end;
end;