pobieranie wartosci z query

Query2.SQL.Clear;
Query2.SQL.Add('select adres from adresy');

Query2.Open;
while not Query2.Eof do
begin
Adres:=Query2. //i jak tu pobrac warotsc adres ???? przy table1.fieldbyname('adres').value

Query2.Next;
end;
Query2.Free;

Przy założeniu że adres jest typu string:

Table1.Edit;
Table1.FieldByName('adres').AsString := Query2.FieldByName('adres').AsString;
Table1.Post;