procedure TDMMain.CopyAnTable;
var
   AnStream: TMemoryStream;
begin
   AnStream := TMemoryStream.Create;
   try
    EDBQuery2.SQL.Text := 'Select nni_no as code from EDBC063_2 WHERE 
nni_id = ' + QuotedStr('0630005');
    EDBQuery2.Open;
    EDBQuery2.SaveToStream(AnStream);
    EDBTable1.Open;
    EDBTable1.LoadFromStream(AnStream);
    EDBTable1.Close;
   finally
     AnStream.free;
   end;
end;