[TOJluK]

Примерно так:

Код:

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 там все же есть, просто в копипаст не попал...