поиск по ключу в таблицах с помощью ADOQuery

подскажите в чем проблема, питаюсь по ключе который нашел в первой таблице найти соответствующую запись или несколько записей соответствующих данному ключу во второй таблице и мне выдает ошибку


var k,i:integer;
begin
k:=0;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM tb1 WHERE word like '+QuotedStr('%'+Edit1.text+'%'));
ADOQuery1.Active:=True;

ADOQuery1.First;
for i:=0 to ADOQuery1.RecordCount-1 do
begin


k:=ADOQuery1.Fields.Fields[0].AsInteger ;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('SELECT * FROM tb2 WHERE id=k' );
ADOQuery2.Active:=True;
if (ADOQuery2.RecordCount<>-1) then
Memo1.Lines.Add(ADOQuery2.Fields.Fields[1].AsString);

ADOQuery1.Next;
end;
end;