Примерно так:
Код:
bd.first;
while not (bd.eof) do
begin
for i:=0 to stringgrid1.RowCount-1 do
if stringgrid1.Cells[1,i]=bd.fieldbyname('upname').asstring then
memo1.Lines.Add(StringGrid1.Rows[i].Text);
bd.next;
end;
Babuca, я подозреваю, что next там все же есть, просто в копипаст не попал...