[Dead_Gigabit]

Всем доброго, у меня такая проблемс
есть стрингрид в котором занесенны данные, есть бд также с данными.
Задача сравнить данные первого столбща стрингрида (нумерация с 0) с столбщом name в БД и при совпадении добавить результат в МЕМО.
делаю так:

Код:

var
s:string;
i: integer;
begin
memo1.Clear;
i:=0;
bd.first;
while not (bd.eof) do
begin
i:=i+1;
if stringgrid1.Cells[1,i]=bd.fieldbyname('upname').asstring then begin
memo1.Lines.Add(StringGrid1.Rows[i].Text);
end;

проверка проходит но в мемо не добавляются данные просто пустота...
Может кто нибудь обьяснить что не так?


Использую:
delphi 2010;
firebird 1.5

P.S. bd это Adoquery